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HISTORY SECTION 


1. CZKUBCO WAS RELEASED OCT 1979. 


A. CZ7KUBCO WAS REVISED TO ACCOMODATE THE ASYNCHRONOUS ISSUINGG 
OF BUS GRANTS OF THE 11/44 CPU. IN ALL TESTS WHICH ALLOW FOR INTERRUPT 
ADD A "NOP" INSTRUCTION DIRECTLY FOLLOWING THE INSTRUCTION WHICH 
LOWERS THE PRIORITY LEVEL, THUS ALLOWING ONE INSTRUCTION 
TIME FOR INTERRUPT TO OCCUR. 
sagt Be CHANGE AFFECTS THE ‘TIME DELAY AND BUSS LATENCY ERROR BITS 
S 
6. C2KUBCO WAS REVISED TO ACCOMODATE THE XON/XOFF FEATURE OF CERTAIN 
TERMINALS. THE STYPE SYSMAC MACRO WAS AFFECTED. 
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1.0 Abstract 


The Unibus Exercisor (UBE) module diagnostic is comprised of a series 
of tests that check all programmatically accessable areas of the 
exercisors ( 95%). The tests are arranged in a logical order such 
that simpler functions are examined first followed by the more complex 
ones. The tests build on one another such that the present test will 
use hardware previously tested. This should provide a very effective 
degree of fault isolation. 


The program is written to test a maximum of four UBE's at one time and 
is intended to run in a stand-alone environment. 


2.0 Requirements 


2.1 Equipment 


A working PDP=11 and Unibus 

A working Teletype 

A good 6K of Memory 

A minimum of 1 to a maximum of 4 UBE on the system 


2.2 Preliminary Requirements 


It is expected that the module wiil have been tested on a GR or 
similar tester. This is to ensure that those areas that can not be 
thouroughly exercised by this program are working. These areas are: 


Wrong Grant Error bit 
No, No SACK time out Error bit 
Wrong A Lines Error bit 
- No Grant or not one Grant Error bit 
5. No Interrupt SSYN Error bit 
6. Inhibit Sack Logic. 


In addition the paney of grants can not be tested if only one 
s 


exercisor is present (see section 6.0). On those machines that don’ : 
have a parity trap (11/05, 11/20), the parity hardware is no 


checked. THE PARITY OPTION TEST (TEST 6) SHOULD BE DESELECTED BY SETTING SWITCH 5 FOR OTHER MACHINES WITHOUT PARITY MEMORY. 


ALSO, THE POWER DOWN TEST SHOULD NOT BE RUN ON THE 11/05. 


2.3 Execution Time 


For an error free, first pass run on an 11/45 with core memory, it 
takes approximately 15 seconds per UBE tested. 





ma 
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200 = for normal startup and restart | 
1100 = if halted in Interrupt test and wish to restart 


4.0 Program Control and Operator Action 


4.1 


The paper tape is loaded using the standard procedure for ABS. tapes. 


4.2 
Load address 200 


4.3 


If the power down sequence is to be tested set SwW4=1. 


4.4 


if more than one exercisor is present and it is desired to inhibit 
testing one or more of them, set the corresponding SW9,1,2,3=1. 
Switch O corresponds to the UBE which has the lowest address on the 
bus. Switch 7 to the next highest etc.. All UBE should not be 
inhibited. If this is done the program will trap to 4 after several 
end of passes. If all exercisors are to be tested Sw0,1,2,3=0. 


4.5 


Start Test 


5.0 Switch Options 


THE USE OF THIS PROGRAM ON PROCESSORS HAVING A SOFTWARE SWITCH REGISTER 


NECESSITATES OPERATOR INTERACTION: THE OPERATOR MUST SET UP LOCATION 176 


WITH THE SWITCH REGISTER VALUES DESIRED. 


SW<15>=1 Halt on Error 
SW<14>=1 Loop on Test 


SEQ 0005 


‘oa 


SwW<13>=1 
SW<12>=1 


Inhibit Error Typouts 
Inhibit Most Typeouts Except Error 
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SW<11>=1 Inhibit Test Iterations 
SwW<10>=1 Bell on Error 
Sw<09>=1 Loop on Error 
Sw<05>=1 INHIBIT TEST 6 
Sw<04>=1 Test Power Down 
SwW<03>=1 Inhibit Test of UBE 
Sw<02>=1 Inhibit Test of UBE 
Sw<01>=1 Inhibit Test of UBE 
Sw<00>=1 Inhibit Test of UBE 


5.1 Sw<15> 


The program halts on encountering an error after printing out the 
error message. Pressing ‘continue’ restores normal program operation. 


5.2 SW<14> 


The program loops on the subtest that is being executed when the 
switch 1S put on. 


5.3 SwW<13> 


This switch inhibits all error typeouts 


5.4 SW<i2> 


Tnis switch inhibits most typeouts except error typeouts. 


5.5 SwW<11> 


When one iterations of each test is inhibited. 


5.6 SwW<10> 


The bell is rung upon encountering an error. 


5.7 Sw<09> 


Upon finding an error, the program will cycle from the point of error 
to the previous scope statement (see sec. 8.2). 


5.6 Sw<05> 


SEQ 0007 


. 7% 
THE PARITY OPTION TEST (TEST 6) SHOULD BE DESELECTED BY SETTING SWITCH 5 
FOR MACHINES WITHOUT PARITY MEMORY. 


SEQ C008 
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5.9 Sw<04> 


When set this switch enables the test of the power down sequence and 
the test that DCLO clears BECC, BEBA, BECR2 and BECR1 registers. This 
Switch should not be set when running under ACT11 since a power down 
will cause an error statement from ACT. 


5.10 Sw<03> 


When set this switch inhibits testing of the fourth UBE on the bus. 
The fourth exercisor is defined as the exercisor that responds to the 
fourth Lowest address of the four exercisors. If there are less. than 
four this switch has no effect on the program. 


5.11 Sw<02> 


When set this switch inhibits test of that UBE with the third lowest 
address. If there are less than three, this switch has no effect on 
the program. 


5.12 Sw<0Q1> 


When set this switch inhibits test of that UBE with the second lowest 
address. If there are less than two, this switch has no effect on the 
program. 


5.13 Sw<00> 


when set this switch inhibits testing the lowest address exercisor on 
the buss. If there is one exercisor, this switch should not be set. 


6.0 Program Description 


Upon start of the program, a map, called EMAP, of all the exercisors 
present is typed out in octal. Each bit set in the map corresponds to 
a UBE present. The least significant bit represents the UBE whose 
BEBD address is 770000. The second bit represents the UBE whose BEBD 
address is 770020 and so on.A maximum of 4 consecutive UBES are 
allowed up to the maximum address of 770076. The addresses of the 
first UBE to be examined are then calculated and tests 1-37 are run. 


The program then checks if more exercisors are to be tested up to a 
maximum of four. When these are done and if there were more than one 
UBE, the last test is executed. This tests the passing of grants 


1 


SEQ 0009 
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between the exercisors. 


7.0 Error Reporting 


Error calls are made via the EMT instruction. The lower byte of the 
instruction is encoded to indicate the error number. For example 
ERROR 1 would be (EMT+1) or 104001. Once an error instruction is 
executed, an error handier routine will . 2m process the error cail. 

The error message to be typed is Seperamnee from the item table at the 
beginning of the program. Item 1 corresponds to error 1 and so on. 

Sad op table contains a series of pointers to the message to be 
ty 


Every time an error occurs, the PC of the error call is typed out. 
This will tell the user the exact test where the error occurred. Many 
times other pertinent information is typed out as the contents of 
registers and bad addresses. 


ALL messages refer to the UBE. for example, the message "DATI. failed 
= Ase ready’' means that the UBE when it did a DAT! failed to set its 
re y- 


It should be pointed out when trouble Rie dey ? 4 etleg FE. i. that 
the first error reported should the first one fixe This is 
because the nature of the hardware and software can cause sadittonal 
false or hh ag oh Hy error messages to appear after the first one. 
Since the tests ith on one another and involve previously tested 
hardware, it will aid in_ the fault isolation to look up the tests 
previously run know which hardware has been tested.Also.when 
multiple UBEs are being tested,a UBE can fail in such a way as to 
cause false error reports on a good board.This is especially true when 
the first failing UBE reports a “fatal error’'.Due to this,it is 
pase that the first failing board reported should be repaired 
before proceeding to test the others. 


8.0 Handlers and Common Routines 


8.1 Trap Handler 


This handler uses the trap instruction. The lower byte of the 
instruction is encoded differently for each of the different routines 
that use it. When a call for a routine is executed a trap occurs to 
the handler located at $TRAP. The handler then determines by looking 
at the lower byte which address to go to for servicing the call. The 
following routines use this handler: 


1. TYPE - this routine is used to type ASCIZ messages. 


SEQ 0010 
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2. TYPOC,TYPOS,TYPON = these -rout ines are used to change a 
binary number to. a 6 Stgst ME number and type it. 


3. TYPDS = this routine converts a binary number to decimal 
number and types it. 


8.2 Scope Handler 


This handler is called via the 'IOT’ trap. When ‘scope’ is executed 
an ‘IOT‘ trap occurs to the memory location ‘$SCOPE*. Depending on 
the switch settings, the handler then decides to loop on test, loop on 
error etc. The scope statement that is located at the first 
instruction of the bg ae test is the one that enables the desired 
action (looping etc for the present test 


8.3 Error Hand.er 


This handler uses the ‘EMT’ trap. The lower byte of the instruction 
is encoded to indicate the error number. For example ERROR 1 would be 
(EMT+1) or 104001. Once an error instruction is executed the error 
handler determines the message to be typed. An item table at the 
beginning of the program contains pointers for each message to be 
typed. Each item corresponds to each error (Item 1 corresponds to 
error 1). The ‘ERRTYP' routine then processes the table for the final 
error type out. 


8.4 Trap Catcher 


This is a series of instructions starting in location 0 to detect 
unexpected traps and interrupts to the trap and interrupt vector area 
of memory. 


Each vector PC address is loaded with the address of the next 
location. The next location is loaded with a halt. Thus an illegal 
trap or interrupt will cause a halt at the trap PSW location plus 2. 


Once a halt occurs, by examining the contents of the address pointed 
to by the stack, the value of the PC when the trap or interrupt 
occurred can be determined. 


8.5 Power Dawn and Up Routines 


when a power fail condition occurs, the contents of registers RO-R7 
are saved on the stack. When the power returns, the same registers 
are restored. 


1 


SEQ 0011 
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8.6 CLRREG Routine 


This subroutine will clear all the registers and error conditions of 
the uBE presently being tested. 


8.7 RCATCH Routine 


This routine restores the trap catcher to the vector area of the UBE 
presently being tested. 


8.8 CRDY Routine 
This routine checks for the ready bit to set from the UBE presently 


being tested. If ready fails to set in a time > 100 microseconds, the 
LSB of register R4 is set to a one. 


8.9 DINT Routine 
This routine is used to disregard interrupts fram the UBE under test. 


It places the address of the next location in the UBE’s vector area. 
The next Location then contains an ‘RTI* instruction. - 


8.10 RVEC Routine 


This subroutine restores the vector area 0-56 from the stack and puts 
the trap catcher in the remaining locations. 


8.11 TERRPC Routine 


This routine is used any time an error occurs. It types out the PC of 
the error message, AND THE TEST NUMBER. 


SEQ 0012 
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| SEQ 0013 
-TITLE CZKUBCO wigs EXER MOD 
;*COPYRIGHT (C) 1979 
>*DIGITAL EQUIPMENT CORP. 
; SMAYNARD , MASS. 01754 
! *PROGRAM BY CHUCK ROBINSON : 


ATHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 


$1N =1 
eSBITL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON feet 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT MOST TYPEOUTS EXCEPT ERROR 
INHIBIT ITERATIONS 
ON ERROR 


Be Be Be Be Be Be He we 
ee 


Be Be 


ON ERROR 
WHEN SET, INHIBIT TEST 6 
POWER DOWN 


INHIBIT TEST OF UBE 
INHIBIT TEST OF UBE 
INHIBIT TEST OF UBE 
INHIBIT TETS OF UBE 1 
* SBITL BASIC DEFINITIONS 


;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 


Be ee ee 
“os 


NWS 


O—NWENOO—]NWSE 
: 


ERROR=EMT 
SCOPE=I0T 
tales « tonieaees DEF INITIONS 
11 ;:CODE FOR HORIZONTAL TAB 
fe 12 ::CODE FOR LINE FEED 
CR= 15 +s CODE : CARRIAGE RETUR 
CRLF= 200 :CODE FOR CARRIAGE RETURN=LINE FEED 
PS= 177776 >:PROCESSOR STATUS WORD 


PS 
STKLMT= 177774 
PIRQ= 177772 
DSWR= 7570 
DDISP= 177570 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 eee REGISTER 
NERAL SEGISTER 


2 STACK LIMIT REGISTER 
*PROGRAM_ INTERRUPT rity Sy REGISTER 


7 GENERAL REGISTER 
R5= x5 7 GENERAL REGISTER 
R6= %6 + > GENERAL REGISTER 
R7= %7 3; GENERAL REGISTER 
SP= %6 7 STACK POINTER 
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BASIC DEFINITIONS SEQ 0014 
000007 PC= %7 3 PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
= scPRIORITY LEVEL 0 
PR1= 40 s PRIORITY LEVEL 1 
000100 PR2= 100 ; PRIORITY LEVEL 2 
000140 PR3= 140 s PRIORITY LEVEL 3 
200 PRS= 200 s PRIORITY LEVEL 4 
000240 PRS= 240 ; PRIORITY LEVEL 5 
000300 PR6= 300 ; PRIORITY LEVEL 6 
000340 PR7= 340 s PRIORITY LEVEL 7 
y*'"SWITCH REGISTER'’ SWITCH DEFINITIONS 
100000 Sw15= 100000 
040000 SW14= 40000 
020000 SwW13= 20000 
010000 SW12= 10000 
SWw11= 4000 
002000 Swi0= 2000 
001000 swOo9= 1000 
Swo8= 400 
000200 SwO7= 200 
000100 SwO6= 100 
000040 SswOS= 40 
000020 Sw04= 20 
000010 SwO3= 10 
000004 SWO2= 4 
000002 SwOl= 2 
000001 swoo= 1 
001000 SW9=SwO9 
A SW8=SW08 
000200 SW7=SWO7 
SW6=SWO06 
SW5=Sw05 
000020 SW4=SW04 
000010 Sw3=Sw03 
000004 SW2=SWw02 
000002 SW1=Sw01 
000001 SwO=Sw00 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 
020000 BIT13= 20000 
010000 BIT12= 10000 
BiT11= 
002000 BIT10= 2000 
001000 BITO9= 1000 
BITO8= 400 
000200 BITO7= 200 
00 BITO6= 100 
000040 BITOS= 40 
000020 BITO4= 20 
000010 BITO3= 10 
4 BITO2= 4 
0 2 BITO1= 2 
000001 BITOO= 1 
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18 


000052 


001000 
00 


002632 
000137 


015170 
002632 


000200 
000202 
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BIT9=B1T09 


BITO=81T00 


; *BASIC "*CPU'’ TRAP VECTOR ADDRESSES 


PIRQVEC= 


240 


OUT AND OTHER ERRORS 

sansa? AND ILLEGAL INSTRUCTIONS 

; TRACE TRAP 
; [BREAKPOINT TRAP (BPT) 

ee tha TRAP (IOT) **SCOPE** 
7:POWER FAIL 
or TRAP (EMT) **ERROR** 

3" 'TRAP’* TRAP 


:TTY KEYBOARD VECTOR 
SETTY PRINTER VECTOR 
GRAM INTERRUPT REQUEST VECT 


;PRO OR 
.MCALL _TYPTXT,POP,PUSH,NEWTST , SSNEWTEST , SWRSU, SETUP, SPACE , STARS 
DB=170000 :DA 


-SBTTL TRAP CATCHER 


TA BUFFER OF LOWEST ADDRESS UBE 


<0 
7*ALL UNUSED LOCATIONS FROM 4 ~ 776 CONTAIN A **.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Recepagyione" e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


RSTART: 


B: 
.SBTITL 


“WORD 0 


-WORD 0 
 SBTTL STARTING ADDRESS(ES) 
@ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


JMP 
-=1100 


3: SOFTWARE DISPLAY REGISTER 
73 SOFTWARE SWITCH REGISTER 


MOV #000137,a4200 ;RESTART HERE IF HALTED IN INTERRUPT TEST 
ASTART ,a#202 


MOV 
CMP R6,41014 
BHI B 


JSR PC,RVEC 


@4STAR 


JMP 
ACT11 HOOKS 


sWAS VECTOR AREA DESTROYED IN INT. TEST? 
BRANCH IF NO 

RESTORE VECTOR AREA 

:GO TO BEGINNING OF PROGRAM 


SDR REE EE EER EERE REE ERE EERE ERE KEE ERE 


HOOKS REQUIRED BY ACT11 
$SVPC=. 


-=46 
SENDAD 
-=52 
-WORD 0 
- =$SVPC 


sSAVE PC 

.21)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP 
322)SET LOC.52 TO ZERO 

z; RESTORE PC 


SEQ 0015 


“am 
—hms 


CZ7KUBCO_UNIBUS 
COMMON TAGS 


29 


sgesssssssssss 


VSKEVSANGRASKEREVS 


ag 
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001132 


377 


000 


26-SEP-79 10:03 PAGE 60 


377 


-SBTTL COMMON TAGS 


J LEAR RAEERAREREREERRKER EK EARRRERRREEEERARARRAERERRERERRRERERRRE EH 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


.=1132 
$SCMTAG: 
$PASS: .WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: .WORD 
$LPADR: .WORD 
$LPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
$GDADR: .WOR-E 
SBDADR: .WORD 
S$GDDAT: .WORD 
$BDDAT: .WORD 
~ WORD 
WORD 
$AUTOB: .BYTE 
SINTAG: .BYTE 
~ WORD 
: . WORD 
DISPLAY: .WORD 
TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$SNULL : BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
$REGAD: .WOR 
-REPT 
$REGO: .WORD 
$REG1 . WORD 
$REG2: .WORD 
$REG3 . WORD 
REPT 4 
STMPO: .WORD 
$TMP1:  .WORD 
STMP2: WORD 
$STMP3: WORD 
STIMES: O 
SESCAPE :0 
SBELL: .ASCIZ 
$QUES: .ASCII 
$CRLF: .ASCII 
$LF: -ASCIZ 


Sosooooesse swe 


WR 
DDISP 


N 


elolelo) oCooo? OO-NO 
= 
WG 


<207><377><377> : 


i237 
<15> 
<12> 


sz START OF 


ie CONTAINS 


COMMON TAGS 
PASS COUNT 
THE TEST NUMBER 


ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR aa 


DATA 
7 ;RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


5 OO ORnESS OF SWITCH REGISTER 
; ;ADDRESS OF DISPLAY REGISTER 
i Y KBD STAT uS 


TTY 


KBD R 
ITTY PRINTER: STATUS REG. ADDRESS 
izTTY PRINTER Gf? eR REG. cn Ti 


; CONTAINS 
3; CONTAINS 


NULL te te FOR FILLS 
# OF FILLER CHARACTERS gts 
"LINE FEED" 


RR FILL CHARS. AFTER A 
"TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES) 


CONTAINS 
22 WHICH 


3: CONTAINS 
: 7 CONTAINS 
3 CONTAINS 
3; CONTAINS 


THE ADDRESS FROM 


($SREGO) WAS OBTAINED 


(($REGAD) +0) 
(($REGAD) +2) 
( ($REGAD) +4) 
( ($REGAD) +6) 


{iy DEF INED 


Ss 
oo DEF INED 
7>MAX. NUMBER 
: ESCAPE ON ERROR ADDRESS 


::CODE FOR 


QUE ST ION 
$F CARRIAGE 


3:LINE FEED 


OF ITERATIONS 
BELL 


MARK 
RE TURN 


CLARE RARER EER EERERREA RARER ERARAAERAEARARAEEREARR EERE RS 


SEQ 0016 


70 
71 001350 
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020750 
000000 
000000 
000000 


021032 


021173 
021202 
000000 


021442 
021504 
021562 
000000 
021570 
000000 
000000 
000000 


021655 
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-SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


IS OBTAINED BY USING [HE INDEX NUMBER FOUND IN 


[*LOCATION $ITEMB. TKIS NUMBER INDICATES WHICH ITEM IN THE oat is PERTINENT. 


;*THE INFORMATION 
+ *NOT ET: 
s*NOTE2: 
3* EM 
;* DH 
;* DT 
Pal DF 
$SERRTB: 
7 1TEM1 
EM) 
0 
0 
0 
s ITEM? 
EM2 
DH2 
DT2 
0 
7 1TEM3 
EM3 
DH3 
DT3 
0 
7 ITEM G 
EM4 
DH4 
DT4 
0 
s1TEM 5 
EMS 
DH4 
Di4 
0 
7 ITEM 6 
EM6 
DH4 
DTS 
0 
;1TEM 7 
EM7 
DH7 
DT7 
0 
7 ITEM 8 
EM8 
0 
0 
0 
ITEM 9 


IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
;sPOINTS TO THE DATA 

3zPOINTS TO THE DATA FORMAT 


SEQ 0017 


“am 


aims 
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ERROR POINTER TABLE SEQ 0018 


72 001352 


3 
° 


021716 
000000 
000000 
000000 
021757 
000000 
000000 
000000 
022023 
000000 


3 
—y 


2 
a) 


022070 
000000 
000000 
000000 


0 
0 
0 
E 
0 
0 
0 
E 
0 
0 
0 
E 
0 
0 
0 
0 
0 
0 
0 
EM 
0 
0 
0 
E 
D 
D 
0 
E 


ooo 
= 
—> 
oO. 


ee ed 8 ed od od od ed 
VO as wath dvushe eo eb ok 
WO OBNAUSWNH—-OO0ON 


ih anal 
Mr 
NM 


is? 001476 

126 001500 022612 
127 001502 000000 
128 001504 000000 
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ERROR POINTER TABLE SEQ 0019 


129 001506 000000 0 
130 ITEM 21, 
131 001510 022661 EM21 
132 001512 000000 0 
133 001514 000000 0 
134 001516 000000 

135 s ITEM 22 

136 001520 022717 EM22 
137 001522 000000 

138 001524 000000 0 
139 001526 000000 0 
140 : ITEM 23 

141 001530 022762 EM23 
142 001532 000000 0 
143 001534 000000 0 
144 001536 000000 0 
145 ZITEM 24 

146 001540 023026 EM24 
147 001542 023075 DH24 
148 001544 023152 DT24 
149 001546 0 
150 ZITEM 25 

151 0071550 023164 EM25 
152 001552 023075 DH24 
153 001554 023152 DT24 
154 001556 000000 0 
155 : SITEM 26 

156 001560 023224 EM26 
157 001562 023075 DH24 
158 001564 023152 DT24 
159 001566 000000 0 
160 Z ITEM 27 

161 001570 023265 EM27 
162 001572 023075 DH24 
163 001574 073152 DT24 
164 001576 % 

165 Z ITEM 28 

166 001600 023325 EM28 
167 001602 000000 0 
168 001604 000000 0 
169 001606 000000 0 
170 7 ITEM 29 

171 001610 023354 EM29 
172 001612 000000 0 
173 001614 000000 

174 001616 000000 0 
175 : ITEM 30 

176 001620 023403 EM30 
177 001622 000000 0 
178 001624 000000 0 
179 001626 000000 0 
180 7 ITEM 31 

181 901630 023433 —M31 
182 001632 000000 0 
183 001634 000000 0 
184 001636 000000 0 
185 7 ITEM 32 
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ERROR POINTER TABLE SEQ 0020 
186 001640 023463 EM32 
187 001642 023075 DH24 
188 001644 023152 DT24 
189 001646 
190 7 ITEM 33 
191 001650 023532 EM33 
192 001652 023075 DH24 
193 001654 023152 DT24 
194 001656 0 
195 Zs ITEM 34 
196 001660 023567 EM34 
197 001662 023637 DH34 
198 001 021202 DT3 
199 001666 000000 0 
200 ;1TEM 35 
201 001670 023656 EM35 
202 001672 023733 DH35 
203 001674 021120 DT2 
204 001676 000000 0 
205 7 ITEM 36 
206 001700 023761 EM36 
207 001702 024030 DH36 
208 001704 021202 DT3 
209 001706 000000 0 

Z ITEM 37 
211 001710 4040 —M37 
212 001712 023733 DH35 
213 001714 021120 DT2 
214 001716 000000 0 
215 ;1TEM 38 
216 001720 024077 EM38 
217 001722 023733 DH35 
218 001724 021120 DT2 
219 001726 000000 0 
220 : ITEM 39 
221 001730 024167 EM39 
222 001732 000000 0 
223 001734 000000 0 
224 001736 000000 0 
225 ITEM 40 
226 001740 024245 EM4O 
227 001742 000000 0 
228 001744 000000 0 
229 001746 000000 0 
230 ; ZITEM 41 
231 001750 0243.3 EM41 
232 001752 000000 
233 001754 000000 0 
234 001756 0 

7 ITEM 42 

001760 024365 EM42 

237 001762 0 
238 001764 000000 0 
239 001766 000000 0 

ZITEM 43 


240 
241 001770 024424 E 
242 001772 024510 DH4 


ins 


— 
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ERROR POINTER TABLE 


243 001774 021120 DT2 
000000 


244 001776 0 

245 ZITEM 44 

46 002000 024541 EM44 
000000 


SEQ 0021 


247 002002 0 
248 002004 000000 0 
249 092006 000000 0 
250 s ITEM 45 
251 002010 024605 EM45 
252 002012 000000 0 
253 002014 000000 0 
254 002016 000000 0 
255 s ITEM 46 
256 002020 024632 EM46 
257 002022 024702 DH46 
258 002024 021314 DT4 
259 002026 0 
260 s ITEM 47 
261 002030 024740 EM47 
262 002032 024510 DH43 
263 002034 021120 DT2 
264 002036 000000 0 
7 ITEM 48 
266 002040 9024740 EM47 
267 002042 000000 0 
268 002044 000000 0 
269 002046 000000 0 
270 : ITEM 49 
271 002050 025016 EM49 
272 002052 000000 0 
273 002054 000000 0 
274 002056 000000 0 
275 Z ITEM 50 
276 002060 025016 EM49 
277 002062 024510 DH43 
278 002064 021120 DT2 
279 002066 000000 0 
280 Z ITEM 51 
281 002070 025075 —EM51 
282 002072 000000 0 
283 002074 000000 0 
284 002076 000000 0 
ITEM 52 
0021 025126 EM52 
287 002102 000000 0 
288 002104 000000 0 
289 002106 000000 0 
290 ; ITEM 53 
291 002110 025161 —EM53 
292 002112 000000 0 
293 002114 000000 0 
Soe 002116 000000 0 
21 


025233 
000000 
000000 
000000 







299 002126 


am 
— as 
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ERROR POINTER TABLE SEQ 0022 
300 ITEM 55 
301 002130 024424 EM43 
302 002132 000000 0 
303 002134 000000 0 
002136 000000 0 
305 ITEM 56 
306 002140 025476 EMS6 
307 002142 000000 0 
308 002144 000000 0 
309 002146 000000 0 
310 : ITEM 57 
311 002150 025555 EMS7 
312 002152 000000 0 
313 002154 000000 0 
314 002156 000000 0 
315 7 ITEM 58 
316 002160 025605 —EM58 
317 002162 022205 DH15 
318 0021 021202 DT3 
319 002166 0 
320 ; ITEM 59 
321 002170 025626 EMS9 
322 002172 000000 0 
323 002174 000000 0 
324 002176 000000 0 
325 7 1TEM 60 
326 002200 025674 EM60 
327 002202 000000 0 
328 002204 000000 0 
329 002206 000000 0 
330 7 ITEM 61 
331 002210 025722 EM61 
332 002212 000000 0 
333 002214 000000 0 
334 002216 000000 0 
335 ITEM 62 
336 002220 025751 EM62 
337 002222 000000 0 
002224 000000 0 
339 002226 000000 0 
340 7 ITEM 63 
341 002230 92 EM63 
342 002232 022205 DH15 
34 2234 021202 DT3 
344 002236 0 
345 ITEM 64 
346 002240 026031 EM64 
347 002242 000000 0 
348 002244 000000 0 
349 002246 000000 0 
350 ITEM 65 
351 002250 026127 EM65 
352 002252 026207 DH65 
353 021202 DT3 


355 7 ITEM 66 
356 002260 026226 EM66 


hams 


CZ7KUBCO UNIBUS EXER MOD MACRO M1111 26=SEP=79 10:03 PAGE 61-6 


ERROR POINTER TABLE SEQ 0023 
357 002262 000000 0 
358 002264 000000 0 
359 002266 000000 0 
360 ; ITEM 67 
361 002270 026254 EM67 
362 002272 026207 DH65 
363 002274 021202 DT3 
364 002276 0 

: ITEM 68 
366 002300 
7 002302 026207 DH65 
002 021202 DT3 
369 002306 
370 ; ITEM 69 
371 002310 026316 EM69 
372 002312 
373 002314 000000 0 
374 002316 000000 0 , 
375 ; ITEM 70 
376 002320 026347 EM70 
377 0062322 
378 002324 000000 0 
379 002326 000000 0 
; ITEM 71 
381 002330 026430 EM71 
382 002332 000000 
383 002334 000000 0 
384 002336 000000 0 
385 ; ITEM 72 
386 002340 026456 EM72 
387 002342 000000 
002344 000000 0 
389 002346 000000 0 
390 ZITEM 73 
391 002350 026506 EM73 
392 002352 000000 0 
393 002354 000000 0 
394 002356 000000 
395 ITEM 74 
396 002360 026553 EM74 
397 002362 000000 0 
398 002364 000000 0 
399 002366 000000 0 
400 Z ITEM 75 
401 002370 026575 EM75 
402 002372 000000 0 
403 002374 000000 0 
404 002376 000000 0 
405 : ITEM 76 
0024 026615 EM76 
407 002402 000000 
408 002404 000000 0 
409 002406 000000 0 
410 7; 1TEM 77 
411 002410 026642 —M77 
412 002412 000000 0 
413 002414 000000 0 


ams 
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ERROR POINTER TABLE SEQ 0024 


aie 002416 000000 
416 002420 026670 


425 
426 002440 026730 


428 002444 000000 
rs 2 002446 000000 


;ITEM 81 
431 002450 026772 
432 002452 024702 DH46 
433 002454 021314 DTS 
434 002456 000000 
435 ITEM 82 
002 027016 EM82 
437 002462 000000 
438 002464 000000 0 
439 002466 000000 
ITEM 83 
441 002470 027063 
442 002472 
443 002474 000000 0 
444 002476 000000 
ITEM 84 
446 002500 027144 
447 002502 000000 
092504 000000 0 
000000 0 
450 002510 000000 EMAP -WORD 0 :MAP OF UBE PRESENT 
451 002512 000000 TMAP -WORD 0 ; TEMPORARY MAP 
452 002514 000000 SPTR -WORD 0 SWITCH POINTER 
453 002516 000000 BEBD -WORD 0 ;BEBD ADDRESS OF UBE UNDER TEST 
454 20 000000 BECC -WORD 0 :BECC ADDRESS OF UBE UNDER TEST 
455 002522 000000 BE «WORD 0 : ESS OF UBE UNDER TEST 
524 000000 BECR1: .WORD 0 ;BECR1 ADDRESS OF UNDER TEST 
457 002526 000000 BECR2: .WORD 0 s;BECR2 ADDRESS OF UBE UNDER TEST 
458 002530 000000 BERE «WORD 0 ;CLEAR ERROR ADDRESS OF UBE UNDER TEST 
459 002532 000000 INTVEC: .WORD 0 ; INTERRUPT VECTOR ADDRESS OF UBE UNDER TEST 
534 170014 -WORD 170014 :GO ADDRESS 
461 002536 000000 BE 18D WORD 0 7BEBD ADDRESS OF FIRST UBE TESTED 
540 000000 BE1CC WORD 0 ;BECC ADDRESS OF FIRST UBE TESTED 
463 002542 000000 BE1 -WORD 0 ;BEBA ADDRESS OF FIRST UBE TESTED 
000000 BE1CR1: .WORD 0 7BECR1 ADDRESS OF FIRST UBE TESTED 
465 002546 000000 BE1CR2: .WORD 0 SBECR2 ADDRESS OF FIRST UBE TESTED 
00. 000000 BEIRE: .WORD 0 [CLEAR ERROR ADDRESS OF FIRST UBE TESTED 
467 002552 000000 BE1VEC: .WORD 0 + INTERRUPT VECTOR ADDRESS OF FIRST UBE TESTED 
468 002554 000000 BE2BD: .WORD 0 ADDRESS OF SECOND UBE TE 
469 002556 000000 BE2CC: .WORD 0 7BECC ADDRESS OF SECOND UBE TESTED 
470 002560 000000 BE2BA: .WORD 0 ;BEBA ADDRESS OF SECOND UBE TESTED 





=m 
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ERROR POINTER TABLE 
471 002562 000000 


2732 016767 013146 013136 
002740 067 176270 
002744 067 176266 
002750 112767 176171 
002756 012767 002756 176154 
27 012767 0027 176150 
013746 


022777 177777 176144 


003030 000403 
003032 012716 003040 
003036 000002 


SEQ 0025 

BE2CR1: .WORD 0 ;BECR1 ADDRESS OF SECOND UBE TESTED 
BE2CR2: .WORD 0 ;BECR2 ADDRESS OF SECOND UBE TESTED 
E2RE: .WORD 0 EAR ERROR ADDRESS OF SECOND UBE TESTED 
BE2VEC: .WORD 0 ; INTERRUPT VECTOR ADDRESS 4 SECOND UBE TESTED 
BE -WORD 0 ; ES THIRD 
BE3CC: .WORD 0 =BECC ADDRESS OF THIRD UBE TESTED 
E3BA: .WORD 0 ADDRESS OF THIRD UBE TESTED 
BE3CR1: .WORD 0 ;BECR1 ADDRESS OF THIRD UBE TESTED 
BE3CR2: .WORD 0 ;BECR2 ADDRESS OF THIRD UBE TESTED 
ESRE: .WORD 0 CLEAR ERROR ADDRESS OF THIRD UBE TESTED 
BESVEC: .'WORD 0 ; INTERRUPT VECTOR ADDRESS OF THIRD UBE TESTED 
E4BD: .WORD 0 7BEBD ADDRESS OF FOURTH UBE TESTED 
BESCC: .WORD 0 BECC ADDRESS OF FOURTH UBE TESTED 
E4BA: .WORD 0 DRESS OF FOURTH UBE TESTED 
BESCR1: .WORD 0 7BECR1 ADDRESS OF FOURTH UBE TESTED 
BESCR2: .WORD 0 7BECR2 ADDRESS OF FOURTH UBE TESTED 
BE4RE: .WORD 0 :CLEAR ERROR ADDRESS OF FOURTH UBE TESTED 
BESVEC: .WORD 0 2 INTERRUPT VECTOR ADDRESS OF FOURTH UBE TESTED 
UCNT: .WORD 0 :COUNT OF UBE TESTED 

: -WORD 0 INDEX NUMBER FOR ADDRESS OF 1,2,3,4 UBE 


SRS ICI IIR ICICI ROIOICRIOIOIIOOI ICRI RITTER ITI ATO IORI AISI AAS 
IIIT ITITILILI LLL LLL LLL LLL LLL LLL LLL LLL LLL kchikikibicihichied 


-SBTTL_ INITIALIZE THE COMMON TAGS 
3:CLEAR THE COMMON TAGS (SCMTAG) AREA 

MO :sFIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


‘ ;;LOOP BACK IF NO 
#STACK, SP :;SETUP THE STACK POINTER 

ss INITIALIZE A FEW VECTORS 

MOV #SSCOPE ,@#IOTVEC Net VECTOR FOR SCOPE ROUTINE 
MOV #340, a#IOTVEC+2 77 LEVE 
MOV ASE RROF., aFEMTVEC em VECTOR FOR ERROR ROUTINE 
MOV aed aecMTVEC+2 sel VEL 7 
MOV ASTRAP, @ATRAPVEC ;;T FRAP VECTOR FOR TRAP CALLS 
MOV #340, @#TRAPVEC+2; LEVEL 7 
MOV #SPURDN, @FPWRVEC + POWER FAILURE VECTOR 
MOV #340, QYPWRVEC+2 ; VEL 7 
MOV SENDCT, SEOPCT +: SETUP END-OF -PROGRAM COUNTER 


CLR STIMES oy Hg NUMBER OF ITERATIONS 
CLR SESCAPE LEAR THE ESCAPE ON ERROR ADDRESS 
MOVB 4 - SERMAX 7 ZALLOW ONE ERROR PER TEST 
MOV _—_— 33 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV ;SLPERR ERROR LOOP ADDRESS 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND 
FOR A SOFTWARE SWITCH REGISTER. 


;;EQUAL TO A ‘1"", SETUP 
MOV @#ERRVEC ,-(SP) SE SAVE ERROR VECTOR 
MOV #64$,aMERRVEC ;;SET UP ERROR VECTOR 
#DSWR , SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 


CMP #~1 ,@SWR ze TRY TO REFERENCE E SwWR 

BNE 66$ ze CH IF NO TIMEOUT TRAP OCCURRED 
se THE HARDWARE SWR IS NOT = -1 

BR ; BRANCH IF NO TIME 


65$ 
64$: MOV #65$, (SP) 77SET UP FOR TRAP RETURN 


ama 


C7KUBCO UNIBUS 


VVIWA MMW) 
a eh ce aed cd ed ce eed ed 
N QUNSWNH—C 


360 
543 003362 
544 003370 


012767 
012767 
012637 


032777 
004 


016767 


EXER MOD MACRO M1111 
INITIALIZE THE COMMON TAGS 


000176 
000174 
000004 
010000 


027737 
027442 
177 


177332 
000020 


000020 


000006 
010000 
020414 
177264 


001245 


000010 
177240 


013150 
012562 


167760 


002536 
177114 


177376 
176016 
000004 


000006 


000004 
175760 


000000 


177222 


177240 
177114 


65$: 
663: 


START1: 


MTRAP: 


26-SEP-79 10:03 PAGE 61-9 


MOV AMSWREG, SWR 


MOV #DISPREG,DISPLAY 


MOV (SP) +, @#ERRVEC 
BIT #SW12,aSWR 
BNE STARTI 
TYPE ,MSG16 
TYPE .|MSG12 
R EMAP 
V ASTACK, SP 


#1,SPTR 
MOV #START,SLPERR 
MMTRAP , a4 


MOV 46,044 


TYPOC 
TYPE ,$CRLF 
BR IADD 


CMP (SP)+, 
CMP RO,#10 
BNE LOOP2 

CMP EMAP ,#0 


BNE A 
ERROR +*D1 
JSR PC, TERRPC 


(SP) + 


SEQ 0026 
;sPOINT TO SOFTWARE SWR 
; RESTORE ERROR VECTOR 
ne a 


; UBE MODULE TEST 
JUMPER W1 SHOULD BE IN TO PREVENT MULTIPLE SSYNS 


SETUP THE STACK POINTER 

INITIALIZE SWITCH POINTER TO LOOK AT FIRST SWITCH 
;SET UP RETURN FOR ERROR1 

;SET UP MAP TRAP 

SET PSW PRIORITY=7 

;DATA_REG ADDR. OF FIRST REG 


;LD PTER 

;LOOK IF EXER. PRESENT,NO TRAPS 
YES, INDIC. EXER. PRESENT 

[LOOK AT NEXT EXER. ADDR. 

[UPDATE PTER 

AT LAST UBE? 

BRANCH IF NOT AT LAST POSSIBLE EXER. 
sRESTORE TRAP CATCHER 


“INHIBIT TYPEOUTS? 
BRANCH IF YES 
2 TYPE MAP 

FOR TY 


SAVE EMAP PEOUT 
: 360 TYPE=-OCTAL ASCIICALL DIGITS) 
7GO CALC. ADDRESSES OF UBE 
RESTORE THE STACK 
SAT END OF UBE ADDRESS SPACE? 
:NO er ae AT NEXT EXER. 
:YES,IS MAP 4 
:NO, BRANCH TO 


NO RESPONSE 10 —e ADDRESSES OR NO DEVICE PRESENT 
: TYPE PC OF ERROR MSG 


JMP $EOP 3GO TO END OF TEST 
IAIIVITIIATTA TIAA ADA AA AA A 
ROUTINE TO CALCULATE ADDRESSES OF UBE TESTED 

BILITY TILL LLL IIIA 
1ADD: MOV # BEBD IALIZE BEBD 


1$: 


BEGO 
S INITIALIZE INTERRUPT VECTOR 
GET POINTER TO goose ye VECTOR AREA 
;CLEAR PERMANENT VECTOR AREA 
2 ENTIRE gl CLEARED? 


BRANCH IF 
; INITIALIZE “POINTER TO BE1BD 
MOVE MAP TO WORK AREA 


=—am 


C7KUBCO _UNIBUS 
INITIALIZE THE C 


545 003376 
546 


DUAN AAAI 
za FA As 
WBNAUSWN—O”O 


SESSERaRSS 


012767 
012767 
105067 


EXER MOD MACRO M1111 
OMMON TAGS 


177034 
100000 


177020 


010740 
000020 


010724 
176774 


176764 
176756 
177064 
027570 
176744 


001245 


177044 
002516 


002534 
000016 
003632 


177112 =ACALC: 


177106 


177026 


177006 


Zs 


175450 D: 


177022 


175324 
175320 


177776 
000004 


000005 
176640 
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ADD #20, BEBD 
ADD #20, BECC 
ADD #20, BEBA 
ADD #20, BECR1 
ADD #20, BECR2 
ADD #20, BERE 
ADD #4, INTVEC 
TMAP 
BIC Sait i 


TST TMAP 

BNE ACALC 
LAST 

BIT #20,SPTR 
D 


JMP LAST 
BIT SPTR,@SWR 
BEQ 


TYPE ,MSG13 


MOV BEBD ,-(SP) 
TYPOC 


TYPE 





SEQ 0027 


CALC. ADDR. OF BEBD TESTING 
CALC. ADDR. OF BECC TESTING 
;CALC. ADDR. OF BEBA TESTING 
7 CALC. oon OF BECR1 TESTING 


° I 
- OF INTERRUPT VECTOR 


7 INIT. CARRY 

:LO0K FOR BIT INDICATING EXERCISOR 
CLEAR MSB IF SET 

SIF EXERCISOR PRESENT GO SEE IF TO BE TESTED 

ANY nar tend LEFT? 


[BRANCH IF MOR 
:GO TO or TEST 
TESTED 4 UBE? 


[BRANCH IF NO 

:GO TO LAST TEST 

;SHOULD THIS UBE BE TESTED? 
BRANCH IF YES 

ROTATE Son tax? une NEXT SWITCH 


LOOK FOR NEXT 
ROTATE POINTER TO NEXT SWITCH 
;UPDATE COUNT OF UBE TESTED 
: TESTING UBE ge A. ADDRESS: 
7; SAVE BEBD FOR TYPEOUT 
33G0 TYPE=-OCTAL ASCIICALL DIGITS) 


-SCRLF 
BU 


OUT I 


ESTING IN PE 


R NE TO STORE TEMPORARY ADDRESS OF UBE T RMANENT LOC 
SEU 


MOV NO,R1 

MOV #BEBD ,RO 
MOV (RO)+,(R1)+ 
CMP RO,A#BEGU 
BNE F 

ADD #16,NO 


MOV #FIRST,$LPADR 
MOV #FIRST,$LPERR 
CLRB_$TSTNM 

RESET 


;GET POINTER TO BE1BD 

:GET POINTER FOR BEBD 

; SAVE ADDRESSES 

SALL SAVED? 

;BRANCH IF NO 

; UPDATE PTER TO NEXT URE 

INIT. SCOPE WHEN MORE THAN 1 UBE 
INIT. SCOPE WHEN MORE THAN 1 UBE 


INIT. TEST NUMBER 
INIT. ALL UBE FOR LOOPS 


—MmARSALAAASREALALRASLASLALARAASLSLASSARARSAAR AREAS A RR ARR ARRAS RAS ARRAS SS: 


TEST ALL UBE REG CAN BE CLE‘ntD 
!#RO CONTAINS ADDRESS OF REG UNDER TEST 
a THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED. 


'MASRSAAASLAA£L£Z£L 2 SESS SSESESASASASERASRR RR ARES ERR RRR RRR ASRS SESSA SSS 


:#TEST 1 


1811: 


FIRST: 


SCOPE 
MOV #STACK,SP 
MO 


CLR 


sRESTORE STACK 

;LOCK OUT INTERRUPTS 

SET UP NSSYN TRAP 

SET PSW PRIORTY =7 

:D0 DATO TO CLEAR PB ay IF SET 
;CLEAR ERROR CONDITION 
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TEST ALL UBE REG CAN BE CLEARED SFQ 0028 
600 003672 016700 176620 MOV BEAD. RO :SETUP TO LOOK AT FIRST REG. 
601 003676 005010 TOILO1: CLR (RO) [CLR UBE REG 
602 003700 020067 176620 CMP RO,BECR1 ‘TESTING BECR1? 
603 003704 001425 BEQ TOILO4 ‘BRANCH IF YES 
005710 TST (RO) tI1S REG CLEARED? 
605 003710 001421 BEQ TO1L02 [BRANCH IF YES 
606 003712 010067 175276 TO1L03: MOV RO, $REGO : SAVE FAILING | ADDRESS 
607 003716 011067 175274 MOV (RO), $REG1 SAVE BAD DAT 
608 003722 104002 ERROR +*D2 PFATAL —— REG FAILED TO CLEAR 
609 003724 020067 176576 CMP RO,BECR2 :DID BECR2 FAIL 
610 003730 001006 BNE TOIL06 *BRANCH IF NO 
611 003732 032777 020000 176566 BIT #20000, @BECR2 SWAS CCOVF =1? 
612 003740 001402 BEQ T ‘BRANCH IF NO 
613 003742 104401 027632 TYPE Oasers “DISREGARD BIT 13= 1 OF BECR2 
614 003746 004767 012460 TO1L06: JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
615 003752 000433 BR T01L05 TRESTORE T 
616 003754 005720 TO1L02: TST (RO)+ + INC ADRESS 
617 003756 000747 BR T01L01 =CONTINUE LOOP 
618 003760 022777 000200 176536 TO1L04: CMP #200,aBECR1 TALL BITS IN BECR1 (0 gfXcePT RDY? 
619 003766 001351 BNE TO1L03 ‘BRANCH TO ERROR | 
620 003770 016700 176532 MOV RECR2,RO + INDICATE LOOKING. AT NBECR2 
621 003774 005077 176530 CLR @BERE [RESET ERROR CONDITIONS 
622 004000 005077 176522 CLR @BECR2 [CLEAR BECR2 
623 004004 032777 157777 176514 BIT #157777, @BECR2 [1S BECR2 =0 EXECPT CCOvF? 
624 004012 001337 BNE TO1L03 =NO, TYPE ADDRESS AND DAiA ERROR 
625 004014 012737 000006 000004 MOV #6, a4 “RESTORE TRAP CATCHER 
626 004022 005037 000006 CLR awe 
627 004026 000414 BR TST2 ::GO TO NEXT TEST 
629 004030 011667 175160 STRAP: MOV (SP),$REGO ; SAVE PC FROM STACK 
630 004034 1040035 ERROR + +403 sFATAL ERROR:CPU DID NOT RECEIVE SSYN 
oe) 004036 004767 012370 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
633 004042 012737 000006 000004 1T01L05: MOV #6,a%4 :RESTORE TRAP CATCHER 
634 904050 005037 000006 CLR a6 
635 004054 000167 010354 JMP NUBE1 : TEST NEXT UBE 
646 MARBRABEOSBSOSAASZSAA£L£L£L£LAS ES ES EASES ESSE SESE SERRE SRR R RRR RRR SERRE AAAS AS SS | 
: TEST 2 TST 1,6,8,.14 BECR1 & BITS 0-3.14 OF BECR2 CHANGE 


<#R2, R3 CONTAIN THE TRUE AND COMPLEMENT TEST DATA 

:*R4 CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 
>*R5 CONTAINS THE MASKED CONTENTS = _ REG BEING TESTED 
:STMPI CONTAINS THE MASK FOR THE R 


IF THIS TES! FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 


—MmAALEASALELAAASALAAAALASASSLER AR SSAS ELSA AL AAR ASR AR ARRAS ADDS SS SS | 


004060 000004 T8172: SCOPE 

647 004062 012706 001100 MOV #STACK,SP :RESTORE STACK 

648 004066 012737 000340 177776 MOV #340, a4PSW ‘LOCK OUT INTERRUPTS 

649 004074 012702 052652 MOV #52652,R2 ‘SETUP TEST DATA BECR1 

650 004100 012703 025324 MOV #25324.R3 ‘SETUP COMP. TEST DATA BECR1 
651 004104 012704 002524 MOV #BECR1.R4 ‘LOAD ADDRESS PTER. FOR BECR1 
652 004110 005077 176414 CLR @BERE *CLEAR ERROR CONDITICNS 

653 004114 012767 177777 175104 MOV #177777,$TMP1 SLOAD MASK TO LOOK AT ALL BECR1 
654 004122 016705 175100 TC2L03: MOV $TMP1,R5 ‘LOAD R5 WITH MASK 

655 004126 011400 MOV (R4).RO “GET ADDRESS OF BECR TESTING 





am 
— ms 


oO 
™~ 
x 

® 
on) 
oO 


assesssessssses as 


r 


SS ss SS SS Ss ss Ss 3 ss 
SEVRSFSERSKENS 


Sx 


SERRE 
SaRoOR 


MACRO M1111 


027632 
012222 
010214 


175000 


040012 
5 


00000 

002526 
157777 
176242 


174670 
174670 
174662 


012070 
010062 


176330 


174746 


177776 
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ECR1 & BITS 0=3,14 OF BECR2 CHANGE 


“am 
—ms 


R2, (RO) -LOAD BECR WITH DATA 
(RO) ,R1 ‘GET CONTENTS OF BECR 
R1 SONLY LOOK AT BITS 
‘SET IN MASK =R5 
‘DATA OK? 
B 3L0 ‘BRANCH IF YES 
TO2L02: ‘SAVE BECR ADDRESS 
MOV (RO). $REG1 SSAVE BECR BAD | DATA 
R2,$REG2 ‘SAVE GOOD DAT 
RROR +*D6 [FATAL ERROR: ‘CONTROL REG HELD WRONG DATA 
CMP (R4) .BECR2 ‘DID BECR2 FA 
E TO2L04 BRANCH ia 
WAS KCovF=1> 


BRANCH IF NO 
T DISREGARD BIT 13=1 OF BECR2 
TO2L04: : TYPE PC OF ERROR MSG 
JMP NUBE :TEST NEXT UBE 
TO021.01: :XFER NEW TEST DATA 
MO ;LOAD BECR WITH COMP.DATA 
GET CONTENTS OF BECR 


“BRANCH IF NO 
;SETUP TEST DATA BECR2 
“SETUP COMP. TEST DATA BECR2 
*LOAD ADDRESS PTER. FOR BECR2 
Eon oe “3TH SHAVE MASK LOOK AT ALL BECRe EXECPT CCOVF 
RO,BECR2 : TESTED BECR2? 
aL03 . BRANCH TO START TEST OF BECR2 


WRAAAAAAAEASARASASAASASASLAASESALAAA ALARA LARA RRA RADAR RS ARR SDD DD | 


;*TEST 3 FLOAT A ‘1° THROUGH BEBD, BECC, BEBA 


+ #RO CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 
pari CONTAINS TEST DATA 


eI THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 
RRR RRR RRR EERE REE EREREKEEEE EEE ERE EKER EE 
7S13: 
MSTACK, SP sRESTORE STACK 
340, a4PSW ;LOCK OUT INTERRUPTS 
MO EBD ,RO ;GET BEBD ADDRESS PTER. 
TO3L04: #1,R1 ;SETUP TEST DATA REG 
TO3L03: :PUT TEST DATA IN REG 
CMP a-( : TEST REG 


;BRANCH IF OK 
(RO) , $REGO 3 SAVE fn. ae 2 aes ADDRESS 
R1,$REG2 SSAVE GOOD DAT 
MOV @(RO)+,$REG1 : SAVE BAD DATA 
ERROR +*D4 FATAL ERROR:REG a TO FLOAT A ‘1° 
JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
JMP NUBE [TEST NEXT UBE 
TO3L01: TST R1 TESTED ALL 16 BITS? 


BMI TO3L02 ;BRANCH IF YES 
ASi R1 TEST NEXT BIT 
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"1" THROUGH BEBD, BECC, BEBA SEQ 0030 
713 004354 000756 BR T03L03 ; CONTINUE LOOP 
714 004356 022067 176140 TO3LO02: CMP (RO)+,BEBA ; TESTED LAST REG? ALSO UPDATE ADDR. PTER. 
ab 004362 001351 BNE TO3L04 ;BRANCK IF REGS NOT TESTED 
poe DEAR SI IDIIISISISOIIIIIIOIIOUISIOIUIDIOIIOIIIDIDIDIUISIDIIIIIDIDOIUIIIOIIUDIDINIIUI OTE ® 
;*TEST 4 FLOAT A ‘OQ’ THROUGH BEBD,BECC,BEBA 


+ 

:*RO CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 
7*R1 CONTAINS TEST DATA 

+ 


:*IF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 


SL ERR ARERERERERERRREAE RARER KERR RAEARARAERAEREREAERARAERR EERE ED 


004364 000004 TST4: SCOPE 

725 004366 012706 001100 MOV #STACK, SP :RESTORE STACK 

726 004372 012737 000340 177776 MOV #340,a4PSW ;LOCK OUT INTERRUPTS 

727 004400 012700 002516 MOV #BEBD RO 7GET BEBD ADDRESS PTER. 

728 004404 012701 177776 T04L04: MOV #177776,R1 ‘SETUP TEST DATA REG 

729 004410 010130 TO4L03: MOV R1,a(RO)+ ;PUT TEST DATA IN REG 

730 004412 025001 CMPa-(RO) ,R1 STEST REG 

731 004414 001413 BEQ T04L01 “BRANCH IF OK 

732 004416 011067 174572 MOV (RO) ,$REGO ;SAVE FAILING eg ADDRESS 

733 004422 010167 174572 MOV R1,$REG2 :SAVE GOOD DATA 

734 004426 013067 174564 MOV a(RO)+,$REG1 :SAVE BAD DAT 

735 004432 104005 ERROR +*D5 FATAL ERROR: AREG = TO FLOAT A ‘O° 

736 004434 004767 011772 JSR PC, TERRPC TYPE PC OF ERROR MSG 

737 004440 000167 007764 JMP NUBE ‘TEST NEXT UBE 

738 004444 005701 TO4L01: TST R1 * TESTED ALL 16 BITS? 

739 004446 100002 BPL TO4L02 SBRANCH IF YES 

740 004450 006001 ROR R1 :TEST NEXT BIT 

741 004452 000756 BR T04L03 S CONTINUE LOOP 

742 004454 022067 176042 TO4LO2: CMP(RO)+,BEBA TESTED LAST REG? ALSO UPDATE ADDR. FTER. 

VT? 004460 001351 BNE TO4L04 ;BRANCH IF REG NOT TESTED 

756 MOSBRBASAEOSAALAALALALAL£LASSLZASALRE SAS ES EARS SARA ARARA SAAR SARA RS RRR SASS SE SY 
: TEST 5 TEST FOR DUAL ADDRESSING IN REGS 
‘THIS TEST CLEARS ALL REGS AND THEN WRITES INTO THE 
**REG BEING TESTED. ALL OTHER REGS ARE THEN CHECKED IF THEY WERE 
+ *S IMUL TANEOUSLY WRITTEN. THIS IS THEN REPEATED FOR ALL REGS. 
:*RO CONTAINS ADDRESS OF REG BEING WRITTEN 
>*R1 CONTAINS ADDRESS OF REG BEING EXAMINED 
:*R2 CONTAINS MASK OF BITS TO BE LOOKED AT 
AIF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 

MARSBSASAEOSZSAA£ZAS£RAS£LLALARSASES LSE SES SSE SE SARA SARS ARRAS ESR RASS SSE SS | 
004462 000004 7815: SCOPE 

757 004464 012706 001100 MOV #STACK,SP :RESTORE STACK 

758 004470 012737 000340 177776 MOV #340, a4PSW *LOCK OUT INTERRUPTS 

759 004476 004767 011470 JSR PC,CLRREG “CLEAR ALL REG 

760 004502 016700 176010 MOV BEBD,RO TNITIALTZE Test ADDRESS 

761 004506 016701 176004 TO5L04: MOV BEBD.R1 S INITIALIZE PTER 

762 004512 012710 000002 MOV #2, (RO) “LOAD TEST REG 

763 004516 012702 177777 MOV #177777,R2 ‘INITIALIZE MASK TO LOOK AT ALL BITS 

764 004522 030211 TOSLO3: BIT R2,(R1) ‘IS DATA IN REG =0? 

765 004524 001422 BEQ T05L01 : CH IF DATA OK(=0) 

766 004526 020100 CMP R1,RO “LOOKING AT REG LOADED? 


767 004530 001420 BEQ T05L01 “BRANCH IF YES (DATA OK) 





-—~m- 
MN 
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FOR DUAL ADDRESSING IN REGS SEQ 0031 
768 004532 020167 175766 CMP R1,BECR1 :LOOKING AT BECR1? 
769 006536 001411 BEQ TO5L07 “BRANCH IF YES 
770 004540 010067 174450 TOSLO8: MOV RO,$REGO TERROR; SAVE REG ADDRESS LOADED 
771 004544 010167 174446 MOV R1,$REG1 SSAVE REG ADDRESS EXAMINE 
772 004550 104007 ERROR +*07 ‘FATAL ERROR: DUAL ADDRESSING ERROR 
773 004552 004767 011654 JSR PC, TERRPC [TYPE PC OF ERROR MSG 
774 004556 000167 007646 JMP NUBE [TEST NEXT UBE 
775 004562 022777 000200 175734 TOSLO7: CMP #200,a@BECR1 ZALL BITS IN BECR1 O EXCEPT RDY? 
776 004570 001363 BNE TOSLO8 CH IF NO 
777 004572 020167 175730 TOSLO1: CMP R1 BECR2 [LOOKED AT BECR2? 
778 004576 001412 BEQ TO5LO2 ‘BRANCH IF YES 
779 004600 020167 175720 CMP R1,BECR1 :PTER UP TO BECR1? 
780 004604 001 BNE T05L06 NO, LOOK AT NEXT REG 
781 004606 016701 175714 MOV BECR2,R1 “NOW LOOK AT BECR2 
782 004612 012702 157777 MOV #157777,R2 [LOOK AT ALL BECR2 EXCEPT CCOVF 
783 004616 000741 BR T05L03 > CONTINUE LOOKING 
784 004620 005721 TOSLO6: TST (R1)+ [UPDATE PTER. 
785 004622 000737 BR TOSLO3 *LOOK AT NEXT REG. 
786 004624 004767 011342 TOSLO2: JSR PC, CLRREG *CLEAR ALL REG 
787 004630 020067 175672 CMP RO.BECR2 ‘LOADED AND TESTED BECR2? 
788 004634 001410 BEQ TST6 BRANCH IF YES TO NEXT TEST 
789 004636 020067 175662 CMP RO,BECR1 ‘LOADED BECR1 WITH DATA YET? 
790 004642 001003 BNE TO5L05 ‘BRANCH IF NO 
791 004644 016700 175656 MOV BECR2,RO [YES, NOW LOAD BECR2 
792 004650 000716 BR TOSLO4 * CONTINUE LOOKING 
793 004652 005720 TOSLOS: TST(RO)+ ‘UPDATE ADDRESS OF REG LOADED 
79 004654 000714 BR TO5L94 ‘TEST THIS REG 
807 LTE RREE AREER EERE EE 
T*TEST 6 TEST BUS PARITY BIT PB 


Pf 
;*THIS TEST IS NOT RUN ON THOSE MACHINE 
pou re NO PARITY TRAP (11/05, 11/20) 


«FOR OTHER MACHINES, THIS TEST SHOULD BE DESELECTED IF THE 
[*MEMORY PARITY OPTION IS NOT PRESENT OR NOT ENABLED, ELSE 
[*AN ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS FUNCTIONING 


: *PROPERLY. 
i *SWOS=1 INHIBIT TEST 6 AND GO TO NEXT TEST 
CLEARER AEE AEA EERE REE KER AE REAR ARERR ERERR RE OSH 

004656 000004 TST6: SCOPE 

808 004660 012706 001100 MOV #STACK,SP ;RESTORE STACK 

810 SAIIIIVITTTILTDTLTT TATA TAAL AT TAL AA TAA AAAAATAAAAAAAAAAAA 

811 004664 032777 000040 174300 BIT #SwO5, @SWR ; INHIBIT TEST 6? 

812 004672 001057 BNE TST7 :GO TO NEXT TEST 

813 ;ROUTINE TO DETERMINE IF RUNNING’ UNDER 11/05 OR 11/20 

814 IF 11/05 OR 11/20 BUSS PARITY TEST IS SKIPPED 

815 © /IIIIITLITLATLATT AAT LTT ILL L ALAA TAAL 

816 004674 012737 004770 000010 MOV #ITRAP,a4#10 ;SET UP TO GO TO NEXT TEST IF ILLEGAL INST TRAP 

817 004702 012737 000340 000012 MOV #340, a412 

818 004710 006700 SXT RO IF INST TRAPS HAVE 11/05 OR 11/20 

820 004712 012737 000340 177776 MOV #340, a4PSW :SET PSwW PRIORITY=7 

821 004720 012737 004754 000114 MOV #PTRAP,a4114 “SET UP PARITY TRAP 

822 004726 012737 000340 000116 MOV #349, a4116 

823 004734 012777 010000 175564 MOV #10000, aBECR2 ZENABLE PB PARITY 





CZKUBCO UNIBUS EXER MOD 
TEST BUS PARITY 


16 


824 0046742 


855 005110 


878 005210 
879 005214 


012777 


MACRO M1111 


Bil PB 
175560 
011456 
000116 
000116 


2 
000000 


007 100 


177776 


000011 
175372 
000001 
011054 


011254 
007246 


011242 


000114 


174174 
174226 
000010 
175474 


177776 
175452 
000002 


175424 
175416 


175362 


PTRAP: 


I TRAP: 


T 
TO6L01: 


LL ERARRAAAREREREAEEREERREERERE ERE RERARARAEERAERRAERERRRRRERRERER RARE 


TEST 7 TST GO ,RDY SETS & CLRS,RELEASE BUS IMMED 
** 


26-SEP-79 10:03 PAGE 62-3 


TST @BECR2 
ERROR +*D8 

JSR PC, TERRPC 
MOV #116,34114 
CLR af 


CLR af 
MOV #0,@BECR2 


START PARITY TRAP 

;SETTING PB PARITY FAILED TO CAUSE CPU TO TRAP 
; TYPE PC OF ERROR MSG 

RESTORE TRAP CATCHER 
RESTORE TRAP CATCHER 


; SKIP MSG 
; INHIBIT TYPEOUTS? 
BRANCH IF YES 


;DO 1 ITERATION WHEN TEST NOT 
[BUS PARITY NOT TESTED ON 11/0 


TRESTORE TRAP CATCHER 
sRESTORE TRAP CATCHER 
;DO DATO TO CLEAR PB BIT 


:*THE READY AND GO BIT ARE CHECKED USING A RELEASE 


;*BUSS IMMEDIATE FUNCTION. 
*& 


FALSE INTERRUPT ARE CHECKED FOR 


NOT 
5 OR 


RUN 
11720 MACHINES 


:*IF THE GO OR READY BITS FAIL, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED. 


FLUE REA E EERE ERE RARER EEAEEKEERERREREER EERE 


TST?7: 


TO7LO?: 
TO7LO3: 


TO7LO04: 


FINT1: 


TO7L08: 
TO7LO6: 


SCOPE 
MOV #STACK,SP 
MOV #340,a4PSW 


MOV INTV 
MOV #340 2(RO) 
MOV #6003, aBECR1 
BIT #200, @BECR1 
BNE TO7LO8 


JSR PC, TERRPC 
JMP NUBE 


ERROR +*D12 
JSR PC, TERRPC 
BR T07L06 


ERROR +*D83 
JSR _PC,TERRPC 
BR T07L07 


ERROR +*D16 
JSR PC, TERRPC 
JSR PC,RCATCH 
JMP NUBE 


. 


PC,CLRREG 
MOV #FINT1,@INTVEC 
VEC ,RO 


RESTORE STACK 
;LOCK OUT INTERRUPTS 


ae ALL 


EG 
UP_FOR FALSE INTERRUPT 


Ser 

;GET INTERRUPT VECTOR 
SET PSW PRIORITY=7 
;SET GO _ a RELEASE BUSS IMMEDIATE WITH BR4=1 


;LOOK AT R 


BRANCH IF NOT CLEARED 
;ALLOW INTERRUPTS 

; INITIALIZE A COUNT TO WAIT FOR RDY=1 
[UPDATE COUNT AND LOOP 

TILL COUNT=10 OR RDY=1 


[BRANCH Han RDY WAS NOT SET 
NUE TO LOOK FOR RDY 


SEE IF GO BIT CLEARED 


:PROCEED TO NEXT TEST IF YES 


[RESTORE TRAP CATCHER 
;FATAL ERROR: GO BIT FAILED TO CLEAR 
; TYPE PC OF ERROR MSG 

TEST NEXT UBE 
[FATAL ERROR: RDY BIT FAILED TO SET 
TYPE PC OF io OR MSG 
;ABORT UBE TEST 


ERROR: FALSE niyo tig WHEN DO RELEASE BUSS IMMED. 


TYPE PC OF ERROR M 
:NOW CHECK IF RDY=1 AND GO BIT=0 


FATAL ERROR: RDY +H FAILED TO CLEAR OR GO DID NOT SET 
TYPE PC OF ERROR MSG 

SRESTORE TRAP CATCHER 
[TEST NEXT UBE 


SEQ 0032 


Saat as EXER MOD MACRO M1111 





os 004767 011000 


902 





001100 
173754 


000060 
000174 
000176 
000341 
000004 
005716 
000341 
001000 
005600 
000004 
000200 
000003 
000200 
000005 
000240 
000240 
000005 
000006 
000300 
000300 
000011 


17777& 


000002 


175202 


26-SEP-79 10:03 PAGE 62-4 
T GO ,RDY SETS & CLRS,RELEASE BUS IMMED 


SEQ 0033 
TO7LOS: JSR PC,RCATCH 


WnAAAARAERAAASRSASAARASLARAARRARARRARASASAR RAR RRR RR RRR RR RRR SRSA SRS SS 


:*TEST 10 TEST UBE CAN INTERRUPT 4,7 NO SSYN BIT SET 


1 STHE PSW PRIORITY IS FIRST SET EQUAL TO THE BR 
[*LEVEL OF THE UBE. ALL LEVELS ARE FIRST —— 
:*THIS WAY. IF THE UBE FALSELY INTERRUPTS, 
;*SUBROUTINE, FINT3, WILL DETERMINE THE LeveL IT 
> INTERRUPTED 
:*AFTER THIS, THE UBE IS ALLOWED TO INTERRUPT BY 
>*SETTING THE PSW PRIORITY ONE LEVEL BELOW THE BR. 
ALL LEVELS ARE THEN CHECKED THIS WAY. THE 
PROPER INTERRUPT VECTOR IS TESTED FOR BY SETTING UP 
«THE ENTIRE VECTOR AREA ore TO DETECT FOR WRONG 
ss INTERRUPTS. 


!aNOTE: IF THIS TEST IS HALTED IN THE MIDDLE 
AND IT IS DESIRED TO RESTART THE PROGRAM, 
. THE PROGRAM SHOULD BE RESTARTED AT 1100 AND 
al NOT AT 200. 
;* TEST UBE CAN INTERRUPT 4,7,8 NO INTERRUPT SSYN BIT DOESN T SET 


WR A SORA RRASRAAAALALAASASAASARASALASAAESAS SEAR AAR SRR REARS RRR SDS DS DS 


TST10: SCOPE 
MOV ASTACK,SP ZRESTORE STACK 
;LOCK OUT INTERRUPTS 


MOV #340, a4PSW 
JSR PC,CLRREG ;CLEAR ALL UBE RES 


;RESTORE TRAP CATCHER 


MOV SP.$TMPO SSAVE STACK ADDRESS 
CLR RO TINIT. RO 
TO8LO8: MOV (RO)+,-(SP) + SAVE _VECTOR AREA 0-56 
CMP #60,RO TALL SAVED? 
BNE TO8LO8 ‘BRANCH IF NO 
MOV avi74, -(SP) SAVE SOFTWARE SWR 
MOV avi76. -(SP) 
MOV #341,a4 “SET UP VECTOR AREA TO DETECT WRONG INT. VECTORS 
MOV #4,RO S INITIALIZE ADDRESS REG 
TO8L01: MOV MWINT, (RO) + ‘PUT WRONG INTERRUPT PTER IN ALL VECTOR LOCATIONS 
MOV #341, (RO) + [PUT AN ODD PSW IN ALL PSW LOCATIONS 
CMP #1000,RO [AT END OF VECTOR AREA? 
BNE TO8LOi BRANCH F NO 
MOV #FINT3,@INTVEC [SET UP UBE VECTOR AREA FOR FALSE INT. 
MOV #4, $REGO S INDICATE DOING BR=4 
MOV #200. $REGI : INDICATE Psu PRIORITY=4 
MOV #3, a@BECR1 HAVE UBE DO BR=4 
MOV #200, a4PSW “SET PRIORI TYoa 
NOP *UBE SHOULD NOT INTERRUPT HERE 
MOV #5,$REGO S INDICATE DOING BR= 
MOV #240,$REG1 S INDICATE PSW PRIORITY=5 
MOV #240. a4PSW [SET PRIORITY=5 
MOV #5,@BECR} “HAVE UBE DO BR= 
NOP “UBE SHOULD NOT INTERRUPT HERE 
MOV #6,$REGO S INDICATE DOING BR=6 
MOV #300, $REG1 ‘INDICATE PRIORITY=6 
MOV #300. a4PSW *SET PRIORITY=6 


MOV #11,@BECR1 DO BR=6 
NOP [URE SHOULD NOT INTERRUPT HERE 


nd ae 
Mims 


* rod UNIBUS EXER MOD MACRO M1111 
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TEST UBE CAN INTERRUPT 4,7 NO SSYN BIT SET 
NOW TEST UBE WILL INTERRUPT WITH PRIORITY ONE LEVEL BELOW BR 


958 564 
959 005570 
960 


99 
992 005746 


000445 


173500 
173476 


000040 
174770 


010554 


010662 


000620 


174734 
000400 


010510 


010616 
007740 


174676 
010572 


174624 
010316 
010516 


010372 


010500 
010360 
004000 


177776 


174742 


174726 


174704 
173362 


174662 
173334 
177776 


174562 


TO8LO3: 


TO8LO9: 


TO8LO2: 


FINT3: 


TO8L04: 
TO8LO5: 


WINT: 


TO8LO7: 
T08L06: 


MOV #2,@BECR1 
MOV #4. $REGO 

MOV #3 

MOV *TOBL OS. @INTVEC 
MOV #140, a4PSW 


NOP 

BR TO8LO9 
TNC $REGO 
INC $REG1 


ccc 
ADD #40, a4PSW 
INC @BECR1 


NOP 

JSR PC,RVEC 
ERROR +*D17 
JSR PC,TERRPC 
BR TO8L06 
CMP (SP)+,(SP)+ 
BIT #20,@BECR1 


BNE TOBLO7 
ASL @BECR 

BIC #400 ae CRI 
BR TO8L03 


CMP (SP)+,(SP)-+ 


JSR PC, TERRPC 
BIT #7740, a@BECR2 


JSR PC, TERRPC 

BR TST11 

MOV #TOBLOS.aINTVEC 

MOV #STACK, SP 

ADD #40,$REG1 
$REGO 

MOV $REG1,a4PSW 

INC @BECRI 

NOP 

JSR PC,RCATCH 

ERROR +*D19 

JSR PC, TERRPC 

BR TST11 

CMP (SP)+,(SP)+ 

JSR PC, TERRPC 

JSR PC_RVEC 

BIT #4000, @BE CR2 

ERROR +835. 


: INITIALIZE UBE TO DO BR=4 

INITIALIZE INDICATOR FOR BR=4 

; INITIALIZE iooaeee FOR PRIORITY=3 
7SET RETURN ADDRESS WHEN GET PROPER INTERRUPT 
INITIALIZE PSW PRIORITY=3 
;UBE SHOULD INTERRUPT HERE 
BRANCH TO ERROR IF NO INT. 
: INDICATE BR LEVEL DOING 
z INDICATE PSW PRIORITY LEVEL DOING 
;CLEAR N,Z.V.C 
3SET PRIORI TY LEVEL BELOW BR LEVEL 
; HAVE UBE DO BR 7 LEVEL _ PRIORITY 


R 
;ERROR: UBE FAILED TO INTERRUPT 
: TYPE PC OF ERROR MSG 
; ;BRANCH TO TEST NO INT. SSYN ERROR BIT 
SRESTORE STACK AFTER INTERRUPT 
: TESTED LAST BR? 
;;BRANCH IF YES TO TEST NO iNT. SSYN ERROR BIT 
:SHIFT BECR1 FOR NEXT BR LEVEL 
;CLEAR SHIFTED RDY BIT 
:GO TEST NEXT BR 


RESTORE STACK AFTER INTERRUPT 
RESTORE VECTOR AREA 

;ERROR: UBE INT. WHEN PSW AT SAME PRIORITY LEVEL 
; TYPE PC OF ERROR MSG 

>SEE IF ERROR CONDITION OCCURRED IN BECR2 
;BRANCH IF NO 


;SAVE ERROR CONDITIONS 

ERROR: ERROR Ae IN BECR2 SET WHEN SHOULD=0 
: TYPE PC OF ERROR MSG 

;;BRANCH TO NEXT TEST 


;SET UP _INTVEC TO FIND BR LEVEL UBE MADE 
RESTORE STACK 

RAISE PRIORITY LEVEL BY 1 

: INDICATE NEW a OF PRIORITY 


AGAIN 
Pte PRIORITY 
ERROR: UBE FALSELY INTERRUPTED AT HIGHER LEVEL 
TYPE PC OF ERROR MSG 
;BRANCH TO NEXT TEST 
RESTORE STACK AFTER INTERRUPT 
RESTORE VECTOR AREA 
ERROR: UBE INTERRUPTED TO WRONG VECTOR 
ERR ~ MSG 
7 WAS NO INT. SYN ERROR BIT 
EST IF NO 
sERROR: NO INT. SSYN BIT FALSELY SET 


SEQ 0034 


Mims 







C7KUBCO UNIBUS EXER MOD MACRO M1111 Wi ag PAGE 62-6 





T10 TEST UBE CAN INTERRUPT 4,7 NO SSYN BIT SEQ 0035 
a 005750 004767 010456 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
1001 DUO O ESI ISIISIIUIUIUINEISIUUUIIIUIIDIIUIUIIO OIE Sitti nirntns 
TEST 11 TEST THE NO,NO SACK ERROR BIT DOESN'T SET 


1 THE INHIBIT SACK BIT IS SET AND THE UBE IS TOLD TO 
:*DO A FUN. 3.THE NO,NO SACK ERROR BIT IS THEN 
[*CHECKED TO NOT HAVE SET 


4 PPpePrerrrerrerTerTrTITeTTTITTTITTTTTITITTT TTT TTT TTT 


005754 000004 TST11: SCOPE 


1002 005756 012706 001100 MOV #STACK,SP sRESTORE STACK 

1003 005762 012737 000340 177776 MOV #340,a4PSW ;LOCK OUT INTERRUPTS 

1004 005770 004767 010176 JSR PC, CLRREG :CLEAR ALL UBE REGS. 

1005 005774 012777 000010 174524 MOV #10, @BECR2 TENABLE INH SACK IN BECR2 
1006 006002 012777 006003 174514 MOV #6003,@BECR1 ;D0 FUN 3 VIA BR4 


aa 
AIes 


mane UNIBUS EXER MOD MACRO M1111 26~SEP~79 10:03 PAGE 63 
111 TEST THE NO,NO SACK ERROR BIT DOESN'T SET 


1008 006010 005037 177776 CLR @APSwW 
1009 006014 000240 NOP 


ALLOW INTERRUPTS 
;ALLOW UBE TO GET BUSS. CPU SHOULD TIME OUT 





C2 
Te 


anil al al coil andl an ald ceil 
elelelelelelele) 
ad aut aol aa aod aa aed cael 
ONAOUSWH 


MACRO M1111 26=SEP=79 10:03 PAGE 64 


SACK ERROR BIT DOESN'T SET SEQ 0037 
CLR RO ; INIT COUNTER 
1$: INC_RO : INC COUNTER 
TSTB_ RO ;DELAY AT LEAST 41 USEC 
BPL 1$ ;BRANCH IF 
000200 174472 BIT #200, @BECR2 WAS NO, NO SACK BIT SET? 
B RTR ;BRANCH IF NO 


EQ 
ERROR +*D22 ;ERROR: NO, NO SACK BIT FALSELY SET 


 ¥ UNIBUS EXER MOD MACRO M1111 


TEST THE NO,NO SACK ERROR BIT DOESN'T S 


1020 006040 
1021 006044 
1022 
1031 


1072 346 
1073 006354 
1074 006360 
1075 006366 


004767 
004767 


010366 
010122 


00200 
177776 
0004 


030062 
052525 
010230 
0004 


312 
052525 


174224 
021562 


030062 
052525 
010106 
007640 
052525 
177777 
Sear: 


00664 
002403 
000176 


177776 
021770 


174414 
174410 


174400 


17435/ 
173042 


173026 


174274 
174270 
174256 
174252 
021576 


172720 
172714 


174146 
174136 


RTR: 


26-SEP~79 hs 03 PAGE 65 


JSR PC, TERRPC 
JSR PC,CLRREG 


SEQ 0038 


; TYPE PC OF ERROR MSG 


CLEAR ALL UBE REG 


MASAASLALALA£ AAA 2 BRS SSESASASSASE SALAS SEAR AREER ARERR RRR RASS ESS 


:#TEST 12 


ALL DATA TRANSFERS ARE DONE VIA BR TRANSFERS. 


;*EACH OPERATION (DATI, 


:* TRANSFER AND THE DATA IS THEN CHECKED. 
OPERATION I 


> *EACH 


S STARTED THE READY 


TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1 WORKS 


DATO, DATIP, DATOB) DOES ONE 


TIME AN 
:*BIT IS TESTED BY THE SUBROUTINE 'RDYS' TO SEE IF IT SETS. 


5 REAR E EERE RERE EEE EEE EEE REE KEE ERE EKER 


TST12: 


T10L01: 


T10L02: 


SCOPE 
MOV #STACK, ns 
MOV #340 


aePSw 
MOV #052525 BUFF 1 


REG 
MOV WPS 7ST SBECC 
MOV #BUFF1,@BEBA 


#ERR1,R5 
MOV #2003, aBECR1 
aePSW 
PC RDYS 
CMP #052525, aBEBD 
T10L01 
MOV @BEBD,$REGO 
MOV BUFF1.$REG1 
MOV #BUFF1,$REG2 
MOV #52525, $REG3 


ERROR + 
JSR PC, TERRPC 
MP TSTA 


J 
on eC, oo 


LR BUFF 

MOV #1 77077 ,@BECC 
MOV #BUFF1,a@BEBA 

MOV Wos0525 @BEBD 


HERR2,R 
MOV #3003. “aBECRI 
JSR PC.R 
CMP wose505 JBUFF 1 
T10L02 


MOV @BEBD ,SREGC 
MOV ap SREG1 


MOV $REG2 
MOV 7052525, $REG3 
ERROR + 

JSR PC, no 

BR TST13 


ra PC,CLRREG 

V #052525 BUFF 1 
mov #177777. @BECC 
MOV #OUF EBA 
MOV #ERR3,R5 
MOV #563. @BECR1 
JSR PC, RDYS 


La 


RESTORE STACK 


;LOCK OUT INTERRUPTS 
PUT TEST DATA IN BUFFER 
UBE REG 


XFER 
;LOAD UBE WITH BUFFER ADDRESS 
: INITIALIZE R5 FOR ERROR ADDRESS 
VE UBE DO ih VIA BR=4 AND FUNCTION 1 


ALLOW DATA X 


FER 
:GO CHECK FOR RDY TO SET 


:IS DATA 


OK? 
[GO TEST DATO IF YES 
SAVE (BEBD) 


V 
: SAVE MEM DATA 
7SAVE MEM or Bate 
SAVE CORRECT D 


ERROR: DATI FAILED. 10 LOAD PROPER DATA 


TYPE PC OF ERROR M 
:GO TO NEXT TEST 
CLEAR UBE REG 
SCLEAR TEST AREA 
SHAVE UBE DO 1 X 


: XFER 
LOAD UBE WITH — ADDRESS 
;LOAD UBE WITH 
s INITIALIZE RS FOR ERROR ADDRESS 


UBE DO DATO 


VIA BR=4 AND FUNCTION 1 


:GO CHECK FOR RDY TO SET 

[WAS BUFFER LOADED PROPERLY? 
:GO TEST DATIP IF YES 
7SAVE (BEBD) 


SAVE MEM DATA 
7SAVE MEM or kite 
SAVE CORRECT DAT 


ZERROR: DATO FAILED TO LOAD PR ER DATA 


: TYPE PC OF ERROR M 


SG 
:;BRANCH TO NEXT TEST 


;CLEAR UBE REG 


[PUT TEST DATA IN BUFFER 


; HAVE UBE DO 1 XFER 


;LOAD UBE WITH BUFFER ADDRESS 
‘INITIALIZE R5 FOR ERROR ADDRESS 

HAVE UBE DO DATIP VIA BR=4 AND FUNCTION 1 
°60 CHECK FOR RDY SET 


am 


‘aims 


Ti2 


eee UNIBUS EXER MOD MACRO M1111 26-SEP-79 » 03 —— 65-1 


TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1 


1076 006372 022777 125252 174116 CMP #125252,aBEBD 
1077 006400 001004 BNE T10L 
1078 006402 022767 125252 021452 CMP wi25232, BUF F 1 
1079 006410 001420 BEQ T10LO 

174100 172574 T10L06: MOV EBD * $REGO 
021436 172570 MO 


030062 
012767 125252 172560 


— 
28 
Bis 
oo 
— 
25 
ano 
NN 


MOV #BUF EG2 
MOV W25055's SREG3 
ERROR +“D26 


HAS UBE SHIFTED DATA? 
BRANCH IF NO 


;HAS MEM LOC BEEN SHIFTED? 
GO TEST ta IF YES 


ZSAVE CORRECT DATA 
ZERROR: DATIP mah ing LOAD PROPER DATA 


1 
1082 006426 

1083 006434 

1084 006442 

1085 006444 004767 007762 JSR PC, TERRPC ; TYPE PC OF ERR 

wee 006450 000502 BR TST13 : ; BRANCH TO NEXT TEST 

1088 006452 012767 000377 021402 110L03: MOV il, ye ; INITIALIZE BUFFER 

1089 006460 012705 006650 MOV #ERR INITIALIZE R5 FOR ERROR ADDRESS 
1090 006464 012777 177400 174024 MOV #1 100. @BEBD ;LOAD HIGH BYTE OF UBE WITH 1°S 
1091 006472 012777 030063 174022 MOV #BUFF1+1 ,aBEBA ;LOAD HIGH BYTE BUFF ADDR. INTO UBE 
1092 006500 012777 177777 174012 MOV #177777, a@BECC ;HAVE UBE DO 1 XFER 

1093 006506 012777 003403 174010 MOV #3403,@BECR1 HAVE UBE DO DATOB VIA BR=4 AND FUNCTION 1 
1094 006514 767 000050 JSR PC,RDYS 7GO CHECK FOR RDY SET 

1095 006520 022767 177777 021334 CMP #177777 ,BUFF 1 ;TEST IF DATOB DONE CORRECTLY 

1096 006526 001453 BEQ TST13 + BRANCH IF YES TO NEXT TEST 

1098 006530 017767 173762 172456 MOV @BEBD,$REGO ;SAVE (BEBD) 

1099 006536 016767 021320 172452 MOV on anee SAVE NEW DATA 

1100 006544 012767 030062 172446 MOV #BUi EG2 TSAVE MEM ADDRESS 

1101 006552 012767 177777 172442 MOV m7TTbes SREG3 SSAVE CORRECT DATA 

1102 560 104033 ERROR + TER ROR: DATOB FAILED TO LOAD DATA PROPERLY 
1103 562 004767 007644 JSR PC, TEARPC ; TYPE PC OF ERROR MSG 

ioe 006566 000433 BR TST13 BRANCH TO NEXT TEST 

ae ; SUBROUTINE TO TEST IF RDY BIT SET 

1108 006570 005004 RDYS: CLR R4 7 INITIALIZE 4R4 

1109 006572 032777 000200 173724 T10L05: BIT #200,a3ECR1 :1S RDY SET? 

7710 006600 001006 BNE T10L04 ;BRANCH IF YES 

1111 006602 005204 INC R4 UPDATE COUNT 

1112 006604 032704 000020 BIT #20,R4 3 ge 2 

1113 006610 001770 BEQ T10L05 i IF GO be | RDY AGAIN 

1114 006612 005726 TST (SP)+ ‘RETURN STACK PTER 

1115 006614 000115 JMP (R5) :GO INDICATE ERROR 

1116 006616 000207 T10L04: RTS PC RETURN AND CHECK DATA 
1117 006620 104034 ERR1: ERROR +*D28 ;ERROR: DATI FAILED TO SET RDY 

1118 006622 004767 007604 JSR PC, TERRPC ;TYPE PC OF ER “yy MSG 

1119 006626 000413 BR TST13 3:GO TO NEXT TEST 

1120 006630 104035 ERR2: ERROR +*D29 ;ERROR: DATO FAILED TO SET RDY 

1121 006632 004767 007574 JSR PC, TERRPC ;TYPE PC OF ERROR MSG 

1122 006636 000407 BR TST13 3:GO TO NEXT T 

1123 006640 104036 ERR3: ERROR +*D30 ERROR: DATIP aon fe TO SET RDY 
1124 006642 004767 007564 JSR PC, TERRPC 7 TYPE PC OF ERROR M 

1125 006646 000403 BR TST13 >:GO TO NEXT TEST 

1126 006650 104037 ERR4: ERROR +*D31 ;ERROR: DATOB FAILED TO SET RDY 

hy 006652 004767 007554 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 

ue 006656 TSTA: 

1131 2 RRR EERE REE RARER REE RRR 


S*TEST 13 


TEST INHIBIT DATA SHIFT ON DATIP 


SEQ 0039 
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113 TEST INHIBIT DATA SHIFT ON DATIP SEQ 0040 
RARER A EEE RERAAEREEEERAERREREEERERERKEEERREE ERR E RE 
006656 000004 +§113: SCOPE 

1132 006660 012706 001100 MOV #STACK,SP sRESTORE STACK 

1133 006664 004767 007302 JSR PC,CLRREG CLEAR UBE REG 

1134 006670 005037 177776 CLR @#PSW ;ALLOW_ INTERRUPTS 

1135 006674 012767 052525 021160 MOV #052525 ,BUFF 1 [PUT TEST DATA in BUFFER 

1136 006702 012777 177777 173610 MOV #177777 ,a@BECC SHAVE UBE DO 1 XFER 

1137 006710 012777 030062 173604 MOV #BUFF1,@BEBA ;LOAD UBE WITH BUFFER ADDRESS 

1138 006716 012777 022403 173600 MOV #22403, @BECR1 SHAVE UBE DO DATIP WITH INH DATA SHIFT 

1139 006724 004767 007316 JSR PC,CRDY sO he oy ROY BIT 

1140 006730 005704 TST R4 :DID RDY SET? 

1141 006732 001404 BEQ T11L01 ‘BRANCH IF YES 

1142 006734 104036 ERROR +*D30 ERROR: DATIP on ig TO SET RDY 

1143 006736 004767 007470 JSR PC, TERRPC : TYPE PC OF ERROR MSG 

1144 006742 000427 BR TST14 ; ;BRANCH TO NEXT TEST 

1145 006744 022777 052525 173544 111L01: CMP #052525,aBEBD 31S (BEBD) 9 

1146 006752 001004 BNE T11L02 BRANCH IF NO 

1147 006754 022767 052525 021100 CMP 052525 er 71S MEM OK? 

1148 006762 001417 BEQ ; BRANCH IF YES TO NEXT TEST 

1149 006764 017767 173526 172222 1T11L02: MOV aneRD: $$REGO SAVE (BEBD) 

1150 006772 016767 021064 172216 MOV BUFF1,$REG1 :SAVE MEM pie 

1151 007000 012767 030062 172212 MOV #BUFF 1, SREGZ >SAVE MEM ADDRESS 

115 7006 012767 052525 172206 MOV 7052528. SREGS ;SAVE CORRECT DATA 

1153 007014 104040 ERROR +*D32 ;ERROR: INH. DATA SHIFT ON DATIP FAILED 

11ee 007016 004767 007410 JSR PC, TERRPC :TYPE PC OF ERROR MSG 

1156 DD IOI IIIS III IOIIIOIIIOIOISIOIIDIOIIOIIIOIIIOIIUIUIIUIIIOIUIIUI TOO OR RIOR 
T*TEST 14 TEST DATOB ON DATIP 
DD Rr Re eR RT TR TTT TOIT TOTO TT TT TCT TOTTI TORTI IR TORR Ri tk 

007022 000004 TST14: SCOPE 

1157 007024 012706 001100 MOV #STACK,SP sRESTORE STACK 

1158 007030 004767 007136 JSR PC,CLRREG 7CLEAR UBE REG 

1159 007034 005037 177776 CLR @#PSW sALLOW IN TERRUPTS 

1160 007 012767 177525 021014 MOV #177525 ,BUFF 1 LOAD TEST DATA IN BUFFER 

1161 007046 012777 030062 173446 MOV #BUFF 1, @BEBA LOAD UBE WITH LOW BYTE ADDRESS 

1162 007054 012777 177777 173436 MOV #177777 ,aBECC ;HAVE UBE DO 1 XFER 

1163 007062 012777 042403 173434 MOV #42403, aBECR1 ;HAVE UBE DO DATOB ON DATIP 

1164 007070 004767 007152 JSR PC,CRDY CHECK FOR RDY a 

1165 007074 022777 177253 173414 CMP #177253, @BEBD :CHECK (BEBD) OK 

1166 007102 001004 BNE 1T12L01 BRANCH IF NO 

1167 007104 022767 177653 020750 CMP #177653 BUFF 1 : CHECK BUFFER OK 

1168 007112 001417 BEQ TST15 BRANCH IF YES TO NEXT TEST 

1169 007114 017767 173376 172072 112L01: MOV @BEBD,$REGO SAVE (BEBD) 

1170 007122 016767 020734 172066 MOV BUFF1,$REG1 :SAVE MEM DATA 

1171 007130 012767 030062 172062 MOV BUFF 1, SREG2 : SAVE MEM ADDR cite 

1172 007136 012767 177653 172056 MOV #177653,$REG3 SAVE CORRECT DATA 

1173 007144 104041 ERROR +*D33 ERROR: DATOB ON DATIP FAILED 

Ba 007146 004767 007260 JSR PC, TERRPC [TYPE PC OF ERROR MSG 

1176 

1188 SRR TTT RI EERE RR ER EER EERE ERE ERR 
: TEST 15 TEST NO SSYN ERROR BIT WORK 


tA DATI NPR_IS DONE TO A MEM LOC (760000) THAT RETURNS 
;*NO SSYN. THE NO SSYN ERROR BIT AND BIT 15 OF BECRI 
>*ARE CHECKED TO SET. THE ERROR INTERRUPT IS THEN TESTED. 
;*AFTER THIS THE ERROR IS CLEARED BY THE CLEAR ERROR 


Wes 


— UNIBUS EXER MOD MACRO M1111 


TEST NO SSYN ERROR BIT WORK 


ee aD ce ed aed aed ceed ad aed 
BELRKARALLES 
N 


SSSSssssss 
SS88ss3ss 
WLFFSAA 


— 4 4 se 


“SOON AUSWN—O 
s 
ne 


8888 


7356 


cel a ae cl eh eh ce a ce ce ca ae el cl cl cd ce cl ce ce a cl ce cd ce ce ce cd ce ce ca ed ed ed ec ee ed 


1237 007452 
1238 
1239 


007156 
100000 


007136 
177776 


173220 


007112 
173204 
000400 


006764 
006552 
173052 


177776 
173332 


173274 
173264 


173242 


171704 


173174 


173152 


s sADDRESS . 
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FINALLY THE FUN A,B BITS (BITS 10, am BECR1) 


ARE EXAMINED TO SEE IF THEY RESET WHEN AN ERR 
‘ ® INTERRUPT OCCURS. 
;* TEST NO SSYN ERROR BIT WORKS & FUN A,B BITS RESET ERROR INTRRUPT 


MmADARARAAAAALAAAAALALALEAAALAAASARARAAASARAARASA RAR RAR SAAS ASAD DSS 


18115: 


T23L02: B 


T23L03: 


T2301: 


T23L05: 


T23L06: 


T23L07: 


T23L04: 


MOV ASTACK,SP 
MOV tag f ofp sw 


EG 
MOV WTSSLOTe @INTVEC 
MOV #160000, aBEBA 
#3, aBECR2 
MOV #07777 @BECC 
MOV #2041,a@BECR1 


JSR PC, TERRPC 
T #100000, @BECR1 
BNET 
ERROR te 
ERROR +*D61 
JSR PC, TERRPC 
CLR a#PSw 


NOP 
MOV aBECR2, $REGO 
ERROR +*D59 
ERROR +*D58 

ion PC, TERRPC 


CLR @BERE 

BIT #400, aBECR2 
BEQ T23L05 
ERROR +*D59 
ERROR +*D62 

JSR PC, TERRPC 
BIT #2000, a@BECR1 
BEQ T23L06 
ERROR +*D59 
ERROR +*D14 

JSR PC, TERRPC 
MOV # #160000, @BEBA 


@BECR2 
MOV 4358S See cc 
MOV #T23L07.@INTVEC 
MOV #4061 sabe CR! 


BIT #2600, SBECRI 
BEQ 123 

ERROR te 
ERROR +*D69 

JSR PC, TERRPC 
JSR PC RCATCH 
CLR @BERE 


RESTORE STACK 

;LOCK OUT INTERRUPTS 
CLEAR UBE REG 

;SET UP_ FOR INTERRUPTS 


[LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
= LOAD UBE WITH 1 aaa WHICH RETURNS NO SSYN 


RDY SET 
WAS NSSYN ERROR BIT SET? 
BRANCH IF YES 

ERROR: TEST OF a BIT FAILED 


;WAS ERROR BIT SET? 
;BRANCH IF YES 
SERROR: TEST OF wy: ERROR BIT FAILED 
we SET BIT 15 OF BECRI 
TYPE PC OF ERROR MSG 
“ALLOW UBE TO INTERRUPT 
;UBE SHOULD INTERRUPT HERE 
7 SAVE BECR2 
sERROR: TEST — ERROR BIT FAILED 


7CL RROR 

[WAS NSSYN ERROR BIT CLEARED? 

BRANCH IF YES TO TEST FUN A, B BITS 
ERROR: TEST OF Pi ERROR BIT FAILED 
:TO CLEAR 7 ‘ Ax. CR2 

: TYPE PC OF E OR MSG. 

[WAS FUN 23 Bit RESET? 


BRANCH IF YES 
;ERROR: TEST OF NSSYN ERROR BIT FAILED 
;TO CLEAR BIT 10 OF BECR1 

:TYPE PC OF ERROR 


MSG 
[LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
OAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 


st 
:D0 2 CYCLES 
fo UP FOR INT 

HAVE UBE DO ae A i, VIA NPR 
“WAIT TILL RDY S 
WAS FUN B BIT RESET 
SRESTORE TRAP 
;ERROR: TEST OF NSSYN ERROR BIT FAILED 
:TO CLEAR BIT 11 OF BECRI 
[TYPE PC os ERROR MSG 
RESTORE T 
CLEAR ALL RERROR CONDITIONS 


SEQ 0041 


le 
WN 


ew UNIBUS EXER MOD MACRO M1111 


TEST ADDRESS REG COUNTS BY 2 AN 


1244 


007456 
1ge7 007460 


001100 
006502 
006602 
177776 
000002 
177777 
002003 


006522 
172772 


000002 
177776 
000003 
177777 
172732 


006450 
000003 


172652 
030064 


006544 
172626 
171314 
006522 


172610 
177774 
171266 


006476 
006264 


173006 
173004 


172722 


172706 
172676 
172674 
172660 


171342 
171336 


171316 


ty es 79 10:03 PAGE 65-4 


SEQ 0042 


WR PAAARARASLAAAAAALASAAAAARARASAASALARARA SA RRR ARRAS ARRAS RASS ARRAS S SSS SS 


[*TEST 16 


*® 
7*RO CONTAINS THE TEST DATA 


FL RARER REAR EEE ERE ERERRRRR AE RERRERREKERE EERE RE EH 


TST16: 


T14L02: 


MOV #STACK,SP 
JSR PC,CLRREG 
JSR PC,DINT 
CLR @#PSW 


MOV #2,RO 
MOV #177777,@BECC 
MOV #2003,aBECR1 


T14L02 
MOV m177776, 6 ,@BEBA 
MOV Bae @BECC 
INC @BECR1 


JSR PC,CRDY 
BIT #3,aBECR2 
T14L03 


;NOW TEST ADDRESS COUNTS BY 1 


T14L01: 


T14L03: 


T14L04: 


MOV #BUFF1+1,@BEBA 
MOV #177777 ,aBECC 
MOV #3403,aBECR1 


An @BEBA , $REG 
ERROR +*D37 


ERROR 
JSR PC, TERRPC 
BR T14L.04 
MOV @BECR2,RO 

BIC #177776,RO 
MOV RO, $REGO 
ERROR +*D36 

JSR PC, TERRPC 

JSR PC ,RCATCH 


TEST ADDRESS REG COUNTS BY 2 AND 1 


sRESTORE STACK 

;CLEAR UBE REGS 
:DISREGARD UBE INTERRUPTS 
SALLOW INTERRUPTS 
INITIALIZE TEST COUNTER 
;HAVE UBE DO 1 XFER 


SHAVE UBE DO DATI 
CHECK RDY SET 

71S i CORRECT? 
BRANCH TO ER 


ROR IF NO 
UPDATE R 
UPDATE RO 
SHAVE ALL ADRESSES BEEN TESTED? 
:LOOK A AT NEXT ADDRESS IF NO 


LOAD MAX ADDRESS IN os 16 BITS UBE 
; LOAD A16,A17_ OF Sy WITH 


BRANCH TO ERROR IF NO 


;PUT ODD ADD OF aeren IN UBE 
SHAVE UBE DO 1 XFER 

HAVE UBE DO DATOS 

CHECK RDY 

:DID ADDRESS UPDATE BY 1? 

7 ;BRANCHIF YES TO RESTORE TRAPS 
7SAVE BAD ADDRESS 

+a GOOD ADDRESS 
;ERROR: BEBA DID NOT COUNT BY 1 
: TYPE PC_ OF ERROR MSG 
:;GO TO RESTORE TRAPS 

SAVE BAD ADDRESS 

: SAVE CORRECT ADDRESS 

;ERROR: BEBA DID NOT COUNT BY 2 
: TYPE PC OF ERROR MSG 


;JUST LOOK AT A16,A17 
BA bE atte -Al7 DID NOT COUNT = 0 


ERROR: BE 
; TYPE PC OF ERR 
;RESTORE TRAPS AND GO TO NEXT TEST 


DLA EERE ERE ERE AREER ERR EERE REE 


i*TEST 17 
** 


TEST BUS ADDRESS BITS WILL CHANGE 


:*THE UBE BUS ADDRESS BITS ARE CHECKED TO 


=m 
WN 
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TEST BUS ADDRESS BITS WILL CHANGE 


:*SEE IF THEY CAN CHANGE FROM 0,1. SEVERAL DATIS 
;*ARE DONE FROM LOCATION 0, THE HIGHEST LOC IN THE FIRST 
3*8K AND FROM THE UBE SIMULTANEOUS (i0 ADDRESS 
TDRSS ASISISIIOIISISIOIIIOIIOIIIOIIIIIIIIOIIIOISISIOISIDIIDISIIIOIIDIUIDIUIDIDIDIEIUIDIDIDIUIIUIIDI 
TST17: SCOPE 
MOV #STACK,SP RESTORE STACK 
JSR PC,CLRREG CLEAR UBE REG 
JSR PC,DINT ;DISREGARD INTERRUPTS 
CLR a#PSwW ;ALLOW DATA TRANSFERS 


;S1ZE MEMORY FROM 4K TO 8k 


010012 000004 MOV #T13L01,a%4 :SET UP TIME OUT TRAP 
017776 77 SET RO=LAST ADDRESS IN 1ST 4K OF MEM 
004000 T13L02: ;UPDATE RO TO NEXT 1K OF MEM 

TEST IF 1K PRESENT. TIMES OUT iF NOT. 
037776 ;AT 8K? 


iA : 
;LOOK AT NEXT 1K IF NOT 
T13L01: SUB #4000,RO0 ;GET ADDRESS OF LAST 1K OF MEM PRESENT 


000004 112L03: #6, a4 :RESTORE TRAP 
(RO) ,R1 >SAVE CONTENTS OF LAST LOC IN FIRST 8k 
RO, (RO) “PUT ADDRESS OF LOC IN MEM LOC 

000000 #0, a40 :PUT 0 IN LOC 0 

172454 #177777, @BECC sHAVE UBE DO 1 XFER 

172452 #2003, @BECR1 SHAVE UBE DO DATI FROM MEM LOC 0 


PC,CRDY ET 
0 FROM LOC oO 


aBEBD 
T13L04 ; 
RO, @BEBA SHAVE UBE ADDRESS HIGHEST MEMORY IN 4K-8K LOCATIONS 
172422 #177777, aBECC sHAVE UBE DO 1 XFER 
@BECR1 SHAVE UBE DO DATI FROM HIGHEST MEMORY IN 4K-8K LOCATIONS 
[CHECK FOR RDY SET 
172604 RO, aBE ‘DID UBE READ FROM PROPER LOCATION? 
‘BRANCH IF DATA NO 0 
172414 172400 *HAVE UBE ADDRESS ITS GO ADDRESS 
000003 17237¢ cR2 SHAVE UBE ADDRESS ITS GO ADDRESS 
177777 172362 : HAVE UBE DO 1 XFER 
172362 @BECR HAVE UBE DO DATI FROM GO ADDRESS 
006100 SCHECK FOR RDY SET 
172344 aBEBD ‘DID UBE READ PROPER LOCATJON? 
BE ‘BRANCH IF 
172342 T13L04: GET ADDRESS e> TRIED TO READ FROM 
000002 SUB #2,$REG ‘CALC. ADDRESS TRIED TO READ FROM 
TERROR: UBE DID DATI FROM WRONG LOCATION 
006234 JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
004767 006022 T13L05: JSR PC.RCATCH SRESTORE TRAPS 
010202 010110 MOV R1, (RO) [RESTORE CONTENTS OF LAST LOC OF FIRST 8k 


'WEAAAAAAASAALALASLASALLSARASERASRS AAR ARES RRA RRR RRR R RRA R ALAR SSDS SD S| 


:*TEST 20 TEST CYCLE COUNTS BY 7 AND INC WITH EACH INT 


« eTHE BECC REG IS CYCLED FROM 0 TO 177777 BY INTERRUPTING THE 
:*CPU. AFTER EACH INTERRUPT, THE REG IS COMPARED WITH RO WHICH 
[*CONTAINS THE PROPER DATA. 


PLEA AAR AREER RARER ERE RRERR ERRATA 


Ta 
wns 


ag 


RRR oes 


338 


eS. 
OUnFWr—O 


N--—— 
OOOn 
o 


tht) et fe fe hel fe ft ee par ge 
— 


Mn 
Wr 
oo 
at ad od od 
Bt 
Vw 
MANMWS 


MMNMN 
NOUS 
°o 
8 
“N 
o 


Bo 
oo 
at ad 
oo 
at and 
&S 


ee beabeateeteatyetyeteateeteet et of tt et et 41 
BSBVEARUNIS 
oO So 


EERE 
=RWNISS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
j 
1 
: 
1 
. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ww 
Ww 
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T2 TEST CYCLE COUNTS BY 1 







35 
35 
3 
3 
3 
3 
3 
3 


—_ 
Oo 


66 
10274 
010302 

010306 
1 010314 
it Le, 010326 


SERESESES 


ee mk a a dk dd 8 od od ot ot ot 


WAG 
NNN 
Nm 
o 
= 
oO 
Ww 
Nm 
Nm 


Ww 
16°) 
ad 
oO 
pars 
¥ 


0 
10352 
360 


SELSSSSBESLSSES 


ee ed ed ed od ow «st = 
Ne 
N 
° 
~— 
~ 
~ 


WAANAIAWNAAS 


001100 
000340 
005746 
010250 
000002 
177776 


172234 


172226 
170716 


006124 
000340 
006003 
177776 
005672 


002003 
177776 
172076 
177777 


030062 


005762 


005752 
000004 
005554 








177776 


172276 
172262 


170720 


177776 
172202 


177776 
172142 


172114 


172070 
172062 


172040 
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AND INC WITH EACH | 









TST20: 


E 
MOV #STACK,SP RESTORE STACK 


MOV #340,a4PSW ;LOCK OUT INTERRUPTS 
JSR PC,CLRREG CLEAR UBE REG 
CLR RO INITIALIZE TEST COUNTER 


[SET UP INT VECTOR AREA 

SHAVE UBE_INT.VIA BR=4 

sALLOW INTERRUPTS 

7UBE WILL INTERRUPT HERE 
RESTORE STACK rea INTERRUPT 


MOV #T15L01,@INTVEC 
T15L03: MOV #3,@BECR1 

CLR a4PSW 

NOP 


T15LO1: CMP (SP)+,(SP)+ 


INC RO [UPDATE TEST COUNT 

TST RO ‘IS RO=0? 

BEQ T?5L02 SRESTORE TRAPS IF YES 

CMP RO, aBECC ‘DID CYCLE COUNT UPDATE PROPERLY? 
BEQ T15L : INCREMENT BECC IF YES 


715103 
MOV @BECC,$REGO SSAVE BAD DAT 
MOV RO, $REG1 *SAVE GOOD DATA 
ERROR +*D38 TERROR: INTERRUPT FAILED TO UPDATE BECC TO CORRECT VALUE 
JSR PC TERRPC ‘TYPE PC OF ERROR MSG 
MOV #340, a4PSW SLOCK OUT INTERRUPTS 
MOV *e0OS" @BECR1 . 


sHAVE UBE CYCLE SO IT SETS RDY 
CLR a#PSwW 
T15LO2: JSR PC,RCATCH 


;ALLOW UBE TO CYCLE 
ZIG RIOUISIIUISISIIIUISIIIOIOISIIIDIOIDIDIDIDIOIDIIDIDIDITIOISIOIDIDIIOISIIOITIOI ISSIR SII III 


RESTORE TRAPS 
S*TEST 21 TEST INHIBIT INCREMENT OF BECC AND BEBA 


* te 
3*A DATI IS DONE VIA BR ARBITRATION AND THE BECC AND BEBA REGS 
;*ARE CHECKED TO NOT INCREMENT. 
TUB SO I ISIE IS IOI ISIDIOIOI IOC IID IUIIUIDIUIDIDIOIOIDIOIIOIOIDIDI IOI DIOIDDIDIDIDIIDIDIDIIISISIDI SI 
TST21: SCOPE 
MOV #STACK, SP 
MOV #340, a4PSW 
JSR PC,CLRREG 












RESTORE STACK 
;LOCK OUT INTERRUPTS 
CLEAR UBE REG 
;LOAD UBE WITH TEST saa 
[LOAD TEST DATA INTO BECC 





MOV #1, ‘SETUP BUFFER DATA 
MOV #4. @BECR2 ‘HAVE UBE INH. INC. OF BECC AND BEBA 
MOV #2003, aBECR1 ‘HAVE UBE DO DATI FROM BUFFER AREA 
CLR a#PSw TALLOW DATA XFER 
T16L01: TST SBEBD SWAS DATA XFERED? 
BEQ T16L01 [WAIT TILL DATA IN BEBD 
CMP #177777, aBECC ‘CHECK BECC WAS NOT UPDATED 
BNE T16L02 “BRANCH IF WAS TO ERROR 
CMP #BUFF1,@BEBA *CHECK BEBA WAS NOT UPDATED 
BEQ T16L0 SBRANCH IF WAS NOT UPDATED 
ERROR +*D39 ;ERROR: BEBA CREED WHEN IT WAS INHIBITED 
JSR PC» TERRPC :TYPE PC OF ERROR M 
{ 


BR 
T16L02: ERROR +*D40 


TI6L03: 


ERROR: BECC INCREMENTED WHEN IT WAS INHIBITED 
JSR PC, TERRPC : TYPE PC OF ERROR MSG 

BIC #4,@BECR2 [ALLOW BEBA AND BECC TO COUNT 

JSR PC,CRDY :WAIT TILL UBE IS DONE 


WEARERS SERRE SEER RRR RRR RRR RRR RRR RRR RE RRR RRR RRR RRR RRR RRR SERA SSS SS 


TeTEST 22 TEST INTERRUPT ENABLE & CCOVF WORKS 
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1444 010652 
1445 010660 


1446 010662 
1447 010670 


1461 010744 
1462 010746 


977% 
001000 


005622 
030062 


030072 
030102 
000100 
020000 
020000 


005524 


030062 
005502 
030062 
170252 
005460 


177776 


171654 
171646 


171634 
171630 


170254 


26-SEP-79 10:03 PAGE 65-7 
TEST INTERRUPT ENABLE & CCOVF WORKS 


7*THE UBE IS SETUP TO DO 4 DATO XFERS VIA BR ARBITRATION AND 


SEQ 0045 


;* INTERRUPT WHEN DONE. THE INTERRUPT IS CHECKED FOR 

;*AND_ THEN A BUFFER AREA IS TESTED TC SEE IF EXACTLY 

:*FOUR TRANSFERS WERE DONE. 

;* TEST INTERRUPT ENABLE & CCOVF WORKS UBE WILL DO SEVERAL XFERS 


MARARAAALARAAALALALALESASLALALASALAS AAR AS ALAS ARRAS RRR RR RAR ARDS ED S| 


1§122: SCOPE 
MOV #STACK, SP :RESTORE STACK 
MOV #340, a#PSW ‘LOCK OUT INTERRUPTS 
JSR PC,CLRREG *CLEAR UBE REG 
MOV #BUFF1,RO ‘GET BUFFER ADDRESS 
T17L01: CLR (RO)+ “CLEAR BUFFER AREA 
CMP RO, BUFF 1+20 SAT END OF BUFFER? 
BNE T17L01 CH IF NO 
MOV #377,a@BEBD ‘SET UP XFER TEST DATA 
MOV #BUFF1,aBEBA ‘LOAD UBE WITH BUFF ADDRESS 
MOV #177776, aBECC *SET UBE TO DO 4 XFERS 
MOV #117L02.@INTVEC :SET UP INT VECTOR 
MOV #3121, @BECR1 ‘HAVE UBE DO DATO VIA BR=7 AND INTERRUPT ON DONE 
CLR a#PSw TALLOW XFERS 
CLR RO S INITIALIZE COUNT 
T17L03: INC RO ‘UPDATE COUNT TO WAIT FOR INTERRUPT 
CMP #1000,R0 SWAITED LONG ENOUGH? 
BNE T17L03 “BRANCH IF NO 
ERROR +*D41 TERROR: UBE FAILED TO INT. ON DONE 
JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
BR T17L09 ::GO RESTORE TRAPS 
T17L02: MOV #BUFF1,RO ‘GET START OF BUFFER 
117L05: TST (RO)+ ‘TEST FIRST 4 LOC WRITTEN 
BEQ T17L04 “BRANCH IF NOT WRITTEN TO ERROR 
CMP #BUFF1+10,R0 [LOOKED AT ALL WRITTEN LOCS. 
BNE T17L05 ‘BRANCH IF NO 
T17L06: TST (RO)+ :TEST LAST 4 LOC WERE NOT WRITTEN 
BNE T17L10 “BRANCH TO ERROR IF WERE 
CMP #BUFF1+20,R0 TAT END OF BUFFER? 
BNE 06 [NO, LOOK AT NEXT LOCATION 
BIT #100, aBECR1 YES, TEST INT. ON DONE BIT=0 
BNE 67 CH TO ERROR IF NOT=0 
BIT #20005, aBECR2 :TEST CCOVF=1 
BEQ T17L08 ;BRANCH TO ERROR IF=0 
MOV #6003, a@BECR1 “SET GO BIT TO SEE IF CCOVF IS RESET 
BIT #20000, aBECR2 ;TEST CCOVF =0 
BEQ T17L09 :GO RESTORE TRAPS IF YES 
ERROR +*D42 “ERROR: CCOVF NOT CLEARED BY GO 
JSR PC, TERRPC ;TYPE PC OF ERROR MSG 
BR T17L09 :GO RESTORE TRAPS 
T17L04: TST =(RO) ZCALC. LAST ADD. WRITTEN 
T17L10: TST =(RO) *CALC. LAST ADD. WRITTEN 
CMP #BUFF1,RO [WERE ANY ADD. WRITTEN? 
BLE T17L11 “BRANCH IF YES 
ERROR +*D55 “ERROR: UBE DID NOT DO DATO TO PROPER # OF LOC (4) 
JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
BR T17L09 *:GO RESTORE TRAPS 
T17L11: MOV #BUFF1,$REGO [SAVE FIRST LOCATION WRITTEN 
MOV RO, $REG1 [SAVE LAST LOCATION WRITTEN 
ERROR +*D43 “ERROR: UBE DID NOT DO DATO TO PROPER # OF LOCATIONS (4) 
JSR PC, TERRPC “TYPE PC OF ERROR MSG 





alan) 
LAIN 
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T22 TEST INTERRUPT ENABLE & CCOVF WORKS SEQ 0046 


er 010752 000407 BR T17L09 33GO RESTORE TRAPS 
64 010754 104054 T17L07: ERROR +*D44 ERROR: INT. ON DONE BIT NOT CLEARED 
1268 010756 004767 005450 JSR PC, by’ ; TYPE PC_OF ERROR MSG 
1466 010762 000403 BR T17L09 7;G0 RESTORE TRAPS 
1467 010764 104055 T17L08: ERROR +45 ERROR: CCOVF NOT SET 
1468 010766 004767 005440 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
10% 610772 004767 005226 T17L09: JSR PC,RCATCH [RESTORE TRAPS 
1476 5 RR RRR ER EERE EERE EERE 
:ETEST 23 TEST DATA XFERS FROM BECC 


«THE UBE IS SET UP TO DO 4 DATO XFERS VIA BR ARBITRATION FROM 
;*THE BECC REG TO A BUFFER AREA. THE AREA IS THEN CHECKED. 


+; RERERTREREEREREREREREE REE E RRR EEREREREEE RRR RER EERE R RRR EER REE 


010776 000004 1S123: SCOPE 
1477 011000 012706 001100 MOV #STACK,SP ;RESTORE_ STACK 
1478 011004 004767 005162 JSR PC,CLRREG LEAR UBE REG 
1479 011010 005037 177776 CLR a#PSw TALLOW INTERRUPTS 
1480 011014 012700 030062 MOV #BUFF1,RO [GET BUFFER ADDRESS 
1481 011020 005020 T18L01: CLR (RO)+ SCLEAR BUFFER AREA 
1482 011022 020027 030102 CMP RO, MBUFF1+20 ‘AT END OF BUFFER? 
1483 011026 001374 BNE T18L01 “BRANCH IF NO 
1484 011030 012777 030062 171464 MOV #BUFF1,@BEBA ‘LOAD STARTING ADDRESS INTO UBE 
1485 011036 012777. 177774 171454 MOV #177774, aBECC ‘SETUP UBE TO DO 4 XFERS 
1486 011044 012777 013003 171452 MOV #13003, aBECR1 SHAVE UBE DO 4 XFERS FROM BECC 
1487 011052 032777 000200 171444 118L02: BIT #200, aBECR1 ‘LOOK FOR RDY SET 
1488 011060 001774 BEQ T18L02 “BRANCH TILL SET 
1489 011062 012700 030062 MOV #BUFF1,RO “GET BUFFER ADDRESS 
1490 011066 012701 177774 MOV #177774 ,R1 ‘INITIALIZE R1=TO FIRST DATA WORD 
1491 011072 022001 T18L04: CMP (RO)+,R1 ‘1S DATA OK? 
1492 011074 001005 BNE T18L03 ‘NO, GO TO ERROR 
1493 011076 005201 INC R1 [UPDATE FOR NEXT DATA 
1494 011100 020027 030072 CMP RO, ABUFF1+10 ; LOOKED AT ALL DATA? 
1495 011104 001372 BNE T18L04 LOOK AT NEXT WORD 
1496 011166 000412 BR TST24 A TO NEXT TEST 
1498 011110 005740 T18L03: TST -(RO) :CALC. ADDRESS OF FAILURES 
1499 011112 010067 170076 MOV RO, $REGO *SAVE ADDRESS 
500 011116 011067 170074 MOV (RO), $REG1 SSAVE BAD DATA 
1501 011122 010167 170072 MOV R1,$REG2 SSAVE GOOD DATA 
1502 011126 104056 ERROR +*D46 SERROR: DATO FROM BECC NOT DONE PROPERLY 
1303 011130 004767 005276 JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
1515 DOIG IOC UID IOIIUIIDIIIIOIIOIIO IDI IDIIDIOIUIIOIUIOIUIOIIOIIOIIUI IOI TOR OUR tot tot 
:*TEST 24 TEST UBE CAN DO 2 XFERS PER BUS REQUEST 
« STHE UBE IS SET UP TO DO 2 DATO XFERS PER REQUEST VIA 
>*BR ARBITRATION. THE CYCLE COUNT IS SET TO DO A TOTAL OF 


:*FOUR XFERS. THE UBE IS TOLD or GO. THE FIRST TIME 
>*THE CPU GETS THE BUS, AFTER THIS, THE PSW ary + bee IS 
>*SET FOR 7 HOLDING OFF FURTHER UB ACTION, BUFFER 
7 *AREA IS — CHECKED THAT THE UBE DID PXACTLY 2 XFERS 


:*PER REQUEST 
PPPS err errrrrrrTTTTTTTTTITITITTTTTTTTTTT TTT TTT TTT 
011134 000004 1§124: SCOPE 
1516 011136 012706 001100 MOV #STACK, SP RESTORE STACK 
1517 011142 012737 000340 177776 MOV #340, aaPSW LOCK ON INTERRUPTS 


A Rr i a 
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124 TEST UBE CAN DO 2 XFERS PER BUS REQUEST SEQ 0047 7A 
1518 011150 004767 005016 JSR PC,CLRR :CLEAR UBE REGS 
1519 011154 012700 030062 MOV #BUFF 1 [GET BUFFER ADDRESS 
1520 011160 005020 TI9LO1: CLR (RO)+ “CLEAR BUFFER AREA 
1521 011162 020027 030102 CMP RO, ABUFF 1+20 ‘AT END OF BUFFER? 
1522 011166 001374 BNE 119101 ‘CONTINUE TO CLEAR IF NO 
1523 011170 012777 171324 MOV #BUFF1,@BEBA ‘LOAD BUFFER ADDRESS INTO UBE 
1524 011176 012777 177774 (171314 MOV #177774, aBECC *SET UBE TO DO 4 XFERS 
1525 011206 012777 000377 171304 MOV #377,@BEBD ‘LOAD TEST DATA INTO UBE 
1526 011212 012777 005003 171304 MOV #5003, aBECR1 ‘HAVE UBE DO 2 DATO/REQUEST VIA BR=4 
1527 011220 005037 177776 CLR @4PSW ;ALLOW UBE TO DO XFERS 
1528 011224 000240 NOP [UBE SHOULD DO 2 XFERS HERE 
1529 011226 012737 000340 177776 MOV #340, a4PSW 'SET PRIORITY=7 TO STOP LAST 2 XFERS 
1530 011234 012700 030062 MOV #BUFF 1 [GET BUFF ADDRESS 
1531 011240 005720 T19L03: TST (RO)+ ‘WAS BUFF WRITTEN? 
1532 011242 001411 BEQ T19L09 “BRANCH TO ERROR IF NO 
1533 011244 020027 030066 CMP RO,ABUFF1+4 “LOOKED AT FIRST 2 LOCATIONS? 
1534 011250 001373 BNE T19L03 “BRANCH IF NO 
1535 011252 005720 T19LQ4: TST (RO)+ [TEST BUFF LOC NOT WRITTEN 
1536 011254 001005 BNE T19L02 “BRANCH TO ERROR IF WRITTEN 
1537 011256 020027 030072 CMP RO, #BUFF1+10 “LOOKED AT FOURTH LOC? 
1538 011262 001373 BNE T19L04 “BRANCH IF NO 
1539 011264 21 BR T19L05 ::GO TO END OF TEST 
1540 011266 005740 T19L09: TST -(RO) :CALC LAST ADDRESS WRITTEN 
1541 011270 005740 T19L02: TST -(RO) [CALC LAST ADDRESS WRITTEN 
1542 011272 022700 030062 CMP #BUFF1,RO [WERE ANY ADDRESS WRITTEN? 
1543 011276 101404 BLOS T19L07 ‘BRANCH IF YES 
1544 011300 104 ERROR +*D48 sERROR: UBE DID NOT DO 2 XFERS/REQUEST 
1545 011302 004767 005124 JSR PC, TERR ‘TYPE PC OF ERROR MSG 
1546 011306 000410 BR 119 +:GO TO END OF TEST 
1547 011310 012767 030062 167676 119L07: MOV #BUFF1,$REGO :SAVE FIRST ADDRESS WRITTEN 
1548 011316 010067 167674 MOV RO,$R :SAVE LAST ADDRESS WRITTEN 
1549 011322 104057 ERROR +*D47 :ERROR: UBE DID NOT DO 2 XFERS FOR EACH REQUEST 
1550 011324 004767 005102 JSR PC, TERRPC [TYPE PC OF ERROR MSG 
1551 011330 005037 177776 T19L05: CLR a#PSw TALLOW LAST 2 XFERS 
1552 011334 00024 NOP TALLOW UBE TO GET BUS 
1353 011336 004767 004704 JSR PC,CRDY ‘WAIT TILL UBE FINISHES XFERS 
1565 CL EAA EERE ERE ERE KEE REE EEE EREAEEREERAE RE EH 
T*TEST 25 TEST UBE CAN DO 2 DATIP XFERS PER REQUEST 
** 
:*THE UBE JS SET UP TO DO 2 DATIP XFERS PER REQUEST VIA 
[*BR ARBITRATION. THE CYCLE COUNT IS SET TO DO A TOTAL OF 
‘FOUR XFERS. THE UBE IS TOLD TO GO. THE FIRST TIME 
‘*THE CPU GETS THE BUS, AFTER THIS, THE PSwW PRIORITY IS 
:*SET FOR 7 HOLDING OFF FURTHER UBE ACTION. A BUFFER 
S*#AREA IS THEN CHECKED THAT THE UBE DID EXACTLY 2 XFERS 
**PER REQUEST. 
FS UAE AREER AKEAEAREAERARE RARER RRARARAERRAREARERR EKER EE 
011342 000004 1S125: SCOPE 
1566 011344 012706 001100 MOV #STACK,SP :RESTORE STACK 
1567 011350 012737 000340 177776 MOV #340, a¢PSW ‘LOCK OUT INTERRUPTS 
1568 011356 004767 004610 JSR PC. CLRREG =CLEAR UBE REG 
1569 011362 012700 030062 MOV #BUFF1,RO [GET BUFFER ADDRESS 
1570 011366 012720 125252 T20L01: MOV #125252, (RO) + [LOAD TEST DATA 
1571 011372 020027 030072 CMP 20, ABUFF1+10 ‘LOADED FIRST 4 LOCS? 
1572 011376 001373 BNE T20L01 ‘BRANCH IF NO 
1573 011400 012777 030062 171114 MOV #BUFF1,aBEBA “LOAD BUFFER ADDRESS INTO UBE 
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T25 TEST UBE CAN DO 2 DATIP XFERS PER REQUEST 
1574 01°406 012777 177774 MOV #177774, aBECC ;SET UBE TO DO 4 CYCLES 
1575 071414 012777 004403 171102 MOV #4403,@BECR1 HAVE UBE DO 2 DATIP/REQUEST VIA BR=4 
1576 011422 5037 177776 CLR a#PSW ALLOW UBE TO DO CYCLES 
1577 011426 240 NOP : SHOULD DO XFERS HER 
1578 011430 012737 000340 MOV #340,a4PSW SET PRIORITY = 7 TO STOP LAST 2 CYCLES 
1579 011436 0127 030062 MOV #BUFF1 RO ;GET BUFF ADDRESS 
1580 011442 022720 052525 T20L03: CMP #052525, (RO)+ :TEST BUFF LOCS WRITTEN 
1581 011446 001012 BNE T20L02 BRANCH TC ERROR IF NOT DONE PROPERLY 
1582 011450 022700 0350066 CMP #BUFF1+4,R0 ;LOOKED AT 2 WRITTEN LOCS? 
1583 011454 137 BNE T20L BRANCH IF NO 
1584 011456 022720 125252 T20L04: CMP #125252, (RO) + TEST BUFF LOCS NOT WRITTEN 
1585 011462 1005 BNE T20 ;BRANCH TO ERROR IF WRITTEN 
1586 011464 020027 030072 CMP RO, BUFF 1+10 ;LOOKED AT FOURTH LOC? 
1587 011470 001372 BNE T20L04 ZBRANCH IF NO 
1588 011472 21 BR T20L05 :;GO0 TO END OF TEST 
1589 011474 005740 T20L02: TST =(RO) ;CALC LAST ADDRESS WRITTEN 
1590 011476 005740 T20L08: TST =-(RO) ;CALC LAST ADDRESS WRITTEN 
1591 011500 022700 030062 CMP #BUFF1,R ;WERE ANY LOC WRITTEN? 
1592 011504 101404 BLOS T20L06 ;BRANCH IF YES 
1593 011506 104061 ERROR +*D49 ERROR: DID NOT DO 2 DATIP/REQUEST 
1594 011510 004767 004716 JSR PC,TERRPC : TYPE PC OF ERROR MSG 
1595 011514 000410 BR T20L05 7:60 T OF TEST 
1596 011516 012767 030062 167470 T20L06: MOV #BUFF1,$REGO ;SAVE FIRST ADDRESS WRITTEN 
1597 011524 010067 167466 MOV RO,$REG1 SAVE LAST ADDRESS WRITTEN 
1598 011530 104062 ERROR +*D50 ;ERROR: UBE DID NOT DO 2 DATIP/REQUEST 
1599 011532 004767 004674 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
1600 011536 005037 177776 T20L05: CLR @#PSwW zALLOW LAST 2 CYCLES 
1601 011542 000240 NOP ;ALLOW UBE TO GET BUS 
oo 011544 004767 004476 JSR PC,CRDY ;WAIT FOR UBE TO FINISH XFERS 
1613 DDRII ORO IOI IOI TOI SCIOTO IOI TOTO IOI IOI III IAI I IAAI AISI SISIASIISSSISSISISSISCSON 
i*TEST 26 TEST DATA XFERS VIA NPR AND INT ON DONE WORK 
-* 
:*THIS IS THE FIRST TEST WHERE THE NPR IS EXERCISED. ONE 
:*DATO NPR IS DONE TO A BUFFER AREA. THE READY BIT IS 
;*THEN CHECKED FOR SETTING. NEXT, THE SAME OPERATION IS 
;*REPEATED ONLY THE INTERRUPT ON DONE BIT IS SET. 
;*THE PROGRAM TESTS FOR THE INTERRUPT AND THEN EXAMINES 
;*THE BUFFER AREA TO SEE THAT ONLY ONE XFER WAS DONE. 
CDI IIS III III IOIIUIOIOIOIOIOIOIOIOIIOIOISIOIOIIIIOIIIIIOIOIUICIIEICIOIOITOOI TOTO 
011550 000004 TST26: SCOPE 
1614 011552 012706 001100 MOV #STACK, SP RESTORE STACK 
1615 011556 012737 000340 177776 MOV #340, a4PSW ;LOCK OUT INTERRUPTS 
1616 011564 004767 004402 JSR PC,CLRREG ;CLEAR UBE REG 
1617 011570 067 016266 CLR BUFF 1 :CLEAR BUFFER LOC 
1618 011574 012777 177777 170714 MOV #177777 ,a@BEBD ;LOAD UBE DATA REG WITH TEST DATA 
1619 011602 012777 030062 170712 MOV #BUFF1,@BEBA ;LOAD UBE ADDRESS REG WITH BUFF ADD. 
1620 011610 012777 177777 170702 MOV #177777, @BECC ;SET UBE TO DO 1 CYCLE 
1621 011616 012777 003041 170700 MOV #3041,@BECR1 HAVE UBE DO DATO VIA NPR 
1622 011624 000240 NOP ;ALLOW UBE TO SET BUS 
1623 011626 004767 004414 JSR PC,CRDY CHECK RDY SET 
1624 011632 005704 TST R4 :DID RDY SET? 
1625 011634 001042 BNE T21L01 ;BRANCH TO ERROR IF RDY DID NOT SET 
1626 011636 005767 016220 TST BUFF WAS DATO DONE? 
1627 011642 001452 BEQ T21L02 ;BRANCH TO ERROR IF NPR NOT DONE 
1628 011644 005067 016212 CLR BUFF 1 CLEAR BUFF LOC 
1629 011650 005067 016210 CLR BUFF 1+2 CLEAR BUFF LOC +2 
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126 TEST DATA XFERS VIA NPR AND INT ON DONE SEQ 0049 


1630 011654 012777 011724 170650 MOV #121103, @INTVEC ZSET UP FOR INTERRUPT 

1631 011662 012777 030062 170632 MOV #BUFF1,aBEBA ‘LOAD TEST ADDRESS 

1632 011679 012777 177777 170622 MOV ig ae ape CC ‘SET UBE TO DO 1 

1633 011676 012777 003143 170620 MOV #3143, a@BECR1 ‘HAVE UBE DO DATO NPR AND INT WHEN DONE VIA BR=4 

634 011704 005037 177776 CLR aaPSw [ALLOW UBE TO INTERRUPT 

1635 011710 004767 004332 JSR PC,CRDY ‘WAIT FOR INT. OR RDY TO SET 

1636 011714 104065 ERROR +*D53 TERROR: UBE DID NOT INT WHEN NPR DONE 

1637 011716 004767 004510 JSR PC, TERRPC :TYPE PC OF ERROR MSG 

638 011722 2 BR T21L0 RESTORE TRAPS 

1639 011724 005767 016134 T21L03: TST BUFF1+2 “DID NPR WRITE MORE THAN 1 LOC? 

1640 011730 001422 BEQ T21L.04 ::GO TO END OF TES 

1641 011732 104066 ERROR +*D54 TERROR: UBE WROTE 3 Loc WHEN 1 NPR AND INT DONE 

1642 011734 004767 004472 JSR PC, TERRPC ‘TYPE PC OF ERROR M 

1643 011740 000416 BR T21L04 ;RESTORE TRAPS 

1644 011742 104064 T21L01: ERROR +*D52 TERROR: NPR DID NOT set RDY 

1645 011744 004767 004462 JSR PC, TERRPC Ore PC OF ERROR M 

1646 011750 012777 006003 170546 MOV #6003. @BECR1 ; HAVE UBE SET ITS ROY 

1647 011756 005037 177776 CLR a#PSwW 

1648 011762 004767 004260 JSR PC,CRDY “WAIT TILL SET 

1649 011766 000403 BR T2104 TRESTORE TRAPS 

1650 011770 104063 721.02: ERROR +*D51 TERROR: NPR DATO NOT DONE 

1651 011772 004767 004434 JSR PC, TERRPC :TYPE PC OF ERROR MSG 

165¢ 011776 004767 004222 T21L04: JSR PC.RCATCH SRESTORE TRAPS 

1659 J LRA ERR EERE EERE EERE EEE EKER REE EKEEREEEEKEEEKEREEEEEKE 
:*TEST 27 TST UBE WILI. NOT INT DURING AN NPR & GO BIT SETS 


ielF THIS TEST FAILS AND THE UBE DOES tc AFTER 
:* TRYING TO DO AN NPR, THE CPU WILL GO D 


wea Bs Ramet nate Be Bis Bi Dee OO 


012002 000004 18127: SCOPE 
012004 012767 000001 167222 MOV #1,$TIMES ::D0 1 ITERATION 
1660 012012 012706 001100 MOV #STACK. SP *RESTORE STACK 
1661 012016 004767 004150 JSR PC,CLRREG [CLEAR UBE REG 
1662 012022 032777 010000 167142 BIT #SW12,aSwR : INHIBIT TYPEQUTS? 
1663 012030 001002 BNE 1$ CH IF YES 
1664 012032 104401 025331 TYPE ,MSG3 “TESTING UBE WILL NOT INTERRUPT 
[DURING NPR. IF DOES, CPU WILL GO DOWN 
1666 012036 012777 177777 170454 1$: MOV #177777,aBECC :SET UBE TO DO 1 CYCLE 
1667 012044 012777 000043 170452 MOV #0043,aBECR1 HAVE UBE DO DATI NPR AND INT. (FUN.=0) 
1668 012052 005037 177776 CLR a#PSW 
1669 012056 000240 NOP ;UBE SHOULD NOT GET BUSS HERE 
1670 012060 032777 000001 170436 BIT #1,a@BECR1 71S GO BIT SET? 
1671 012066 001063 BNE 122101 ‘BRANCH IF YES 
1672 012070 104011 ERROR +*D9 TERROR: GO BIT FAILED TO LOAD ‘1° 
1673 012072 004767 004334 JSR PC, TERRPC :TYPE PC OF ER 


ROR MSG 
1674 012076 005077 170422 T22L01: CLR @BECR1 [RESET GO BIT, NPR AND INTERRUPT 
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TST UBE WILL NOT INT DURING AN NPR @ GO BIT SETS SEQ 0050 


1676 012102 032777 010000 167062 BIT #Sw12,aSwR ; INHIBIT TYPEQUTS? 
1677 012110 001002 BNE T§T30 : BRANCH IF YES 
1678 012112 104401 025457 TYPE ,MSG4 SEXITING TEST 
1686 
1688 MOPAR AAASAASASOLALALLAESLASSE ASSES EEE ESSEC ERR RSE RSE RRR RRR RRR ARERR SSSA SS 
:ETEST 30 TEST WRONG A LINE ERROR BIT DOES NOT SET 
aah DATI NPR IS DONE FROM THE UBE GO ADDRESS 
‘*THE ERROR BIT IS TESTED NOT TO HAVE SET AND NOT TO HAVE INTERRUPTED. 
te THE ADDRESS BITS 14,15,16,17 ARE NEXT TESTED SEPARATELY 
:*AND THE ERROR BIT IS CHECKED NOT TO HAVE S 
Ie condaoadeaeenennnthaobanneantananssaontanaietninninnnianial 
012116 TST30: SCOPE 
1689 012120 012706 001100 MOV #STACK,SP ;RESTORE STACK 
1690 012124 012737 000340 177776 MOV #340, a#PSW [LOCK OUT INTERRUPTS 
1691 012132 004767 004034 JSR PC, CLRREG [CLEAR UBE REGS 
1692 012136 016777 170372 170356 MOV BE GO. aBEBA SHAVE UBE ADDRESS ITS GO ADDRESS 
1693 012144 012777 170354 MOV #3,a@BECR2 SHAVE UBE ADDRESS ITS GO ADDRESS 
1694 012152. 012777 177777 170340 MOV #177777, @BECC [SET UP TO DO 1 CYCLE 
1695 012160 012777 012230 170344 MOV #T24L01.@INTVEC :SET UP FOR INT. 
1696 012166 012777 002041 170330 MOV #2041,aB SHAVE DATI NPR DONE FROM GO ADDRESS 
1697 012174 004767 004046 JSR PC,CRDY *CHECK FOR RDY SET 
1698 012200 032777 001000 170320 BIT #1000, aBECR2 ‘WAS ADDRESS ERROR SET? 
1699 012206 001404 BEQ T24L02 “BRANCH IF NO 
1700 012210 104070 ERROR +*D56 ‘ERROR: TEST OF WRONG A LINES ERROR BIT FAILED 
1701 012212 104071 ERROR +*D57 SBECR2 BIT 9 FALSELY SET 
1702 012214 004767 JSR PC,TERRPC :TYPE PC OF ERROR MSG 
1703 012220 005037 177776 T24L02: CLR a#PSw [ALLOW ANY INTERR UPTS 
1704 012224 0002 ‘UBE SHOULD NOT INTERRUPT HERE 
1705 012226 000410 BR T24L06 *GO TEST TRDIVIDUAL ADDRESS BITS 
1706 012230 017767 170272 166756 124L01: MOV @BECR2,$REGO [SAVE BECR2 
1707 012236 104070 ERROR +*D56 TERROR: TEST OF WRONG A ob INES ERROR BIT FAILED 
1708 012240 104077 ERROR +*D63 [FALSELY INTERRUPTED 
1709 012242 004767 004164 JSR PC, TERRPC “TYPE PC OF ERROR asc’ 
1710 012246 000447 BR 12403 *GO RESTORE TRAP 
1711 012250 004767 00 T24L06: JSR PC,DINT ‘DISREGARD INTERRUPTS 
1712 012254 005077 170242 CLR @BEBA [CLEAR ADDRESS 0-15 
1713 012260 012777 170240 MOV #1, aBECR2 [TEST ADDRESS 16 
1714 012266 012777 177777 170224 12405: MOV #177777,@BECC [DO 1 CYCLE 
1715 012274 040000 170220 ADD #40000, @BERA :TEST NEXT ADDRESS 
1716 012302 032777 140000 170212 BIT #140000. @BEBA HAVE ADDRESS BITS 14,15 BEEN EXERCISED? 
1717 012310 001011 BNE T24L “TEST NEXT ADDRESS IF NO 
1718 012312 032777 000003 170206 BIT #3, SeecR? ‘HAVE ADDRESS BITS 16.17 BEEN EXERCISED? 
1719 012320 001422 BEQ T24L03 [GO RESTORE TRAPS IF YES 
1720 012322 005277 170200 INC ZINC ADDRESS BITS 16,17 
1721 012326 042777 170172 BIC #4,aBECR2 LEAR BIT 2 > OF BECR2 IF SET 
1722 012334 012777 002041 170162 124L04: MOV #2041, aBECR1 *DO DATI NPR TO ADDRESS 
1723 012342 004767 003700 JSR PC,CRDY ;WAIT TILL RDY SET 
1724 012346 032777 001000 170152 BIT #1000, aBECR2 WAS WRONG ADDRESS LINES ERROR BIT SET? 
1725 012354 001744 BEQ T2405 STEST NEXT ADDRESS IF 
1726 012356 104070 ERROR +*D56 *ERROR: TEST OF WRONG Y LINES ERROR BIT FAILED 
1727 0 104071 ERROR +*D57 *BECR2 BIT 9 PAL SECY SET 
1728 012362 004767 004044 JSR PC, TERRPC STYPE PC OF ERROR MSG 
1729 012366 004767 003632 T24L03: sep PC-RCATCH SRESTORE TRAP CATCHER 
1741 DDO IOIIIIIIOIIOIOIUIOIUIOIOIDIOIOIUIOIUIOIOIUIDIDIUIDIDIDIOIUIDIDIDIDIDIOIDIDIOIIOIDIDIOIIUIOIOIU IOI 
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131 TEST WRONG GRANTS OR NOT ONE ERROR BIT S SEQ 0051 


seTest 31 TEST WRONG GRANTS OR NOT ONE ERROR BiT SET 


THE UBE IS SET UP TO DO ONE DATI XFER/REQUEST. ALL 

:*THE POSSIBLE COMBINATIONS OF BR AND NPR LEVELS ARE THEN 
[*EXERCISED. AFTER EACH, THE ERROR BITS AND coo noe ARE 
:*CHECKED FOR. FINALLY, A DATI NPR IS DONE FROM A BUFFER 

[*AREA WITH THE INTERRUPT ON DONE BIT SET. UPON INTERRUPT, THE 
;*ERROR BITS ARE CHECKED. 

:* TEST WRONG GRANT & NO GRANT OR NOT ONE GRANT ERR BITS DO NOT SET 


MASAAAAAAAALALASLASASALALASASALAALA AAAS AAR EAA LARA SAR AAAS SESS S SS 


012372 000004 $131: SCOPE 
1742 0123746 012706 001100 MOV #STACK, SP ;RESTORE STACK 
1743 012400 767 003566 JSR PC CLRREG [CLEAR UBE REG 
1744 012404 012777 002 170112 MOV #2000,a@BECR1 :SET UP UBE TO DO 1 DATI XFER/REQ. 
1745 012412 012777 012512 170112 MOV soe bre SINTVEC ‘SET UP FOR INTERRUPT 
1746 012420 012737 177776 T25L05: MOV #340, af#PSwW sLOCK OUT INTERRUPTS 
1747 012426 012777 177777 170064 MOV #177777, aBECC :SET UBE TO DO 1 CYCLE 
1748 012434 012777 030062 170060 MOV #BUFF1,@aBEBA >SET UBE TO ADDRESS BUFFER AREA 
1749 012442 062777 000003 170054 ADD #3, @BECR1 SHAVE UBE DO NEXT LEVEL OF REQUEST 
1750 012450 005037 177776 CLR arPsu TALLOW DATA XFERS VIA BR AND NPR LEVELS 
1751 012454 004767 003566 JSR PC,CRD [WAIT TILL RDY SET 
1752 012460 032777 000076 170036 BIT #76, SBECRI SHAVE ALL REQUEST LEVELS BEEN EXERCISED 
1753 012466 001425 BEQ T25L02 ;BRANCH IF YES 
1754 012470 032777 000040 170030 BIT #40, aBECR2 WAS WRONG GRANT ERROR BIT SET? 
1755 012476 BNE T25L03 ;BRANCH TO ERROR IF SET 
1756 012500 032777 002000 170020 BIT #2000, aBECR2 WAS NO GRANT OR NOT ONE GRANT ERROR BIT SET? 
1757 012506 001 T25L.04 “BRANCH TO ERROR IF YES 
1758 012510 000743 BR T25L05 :GO TEST NEXT LEVEL 
1759 012512 104100 T25L01: ERROR +*D64 ‘ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
1760 012514 017767 170006 166472 MOV @BECR2, $REGO [SAVE ERROR BITS 
1761 012522 104077 ERROR +*D6 “FALSELY INTERRUPTED CPU 
1762 012524 017767 167774 166462 MOV @BECR1,$REGO :SAVE BECR1 
1763 012532 104104 ERROR +“D [WITH BECR1= 
1764 012534 004767 003672 JSR PC, TERRPC [TYPE PC OF ERROR MSG 
1765 012540 0004 BR T2508 'GO RESTORE TRAPS 
1766 012542 012777 012560 167762 1T25L02: Mov #T25L06, @INTVEC ‘SET UP NEW INT. AREA 
1767 012550 012777 002143 167746 V #2143, @BECR1 ‘HAVE UBE DO 1 DATI NPR AND INT ON DONE 
1768 012556 WAIT ‘WAIT TO BE INTERRUPTED 
1769 012560 032777 000040 167740 125.06: BIT #40,aBECR2 TWAS WRONG GRANT ERROR BIT SET? 
1770 012566 001015 BNE T25L07 ;BRANCH TO ERROR IF WAS 
1771 012570 032777 002000 167730 BIT #3000 @BECR2 WAS NO GRANT OR NOT ONE GRANT BIT SET? 
1772 012576 001441 BEQ T25L 08 *GO RESTORE TRAPS IF WAS NOT 
1773 012600 104100 ERROR +*D64 ‘ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
1774 012602 017767 167716 166404 MOV @BECR1,$REGO : SAVE BECR1 
1775 012610 104101 ERROR +*D65 NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET 
1776 012612 104102 ERROR +66 ‘WITH INT ON DONE = 
1777 012614 004767 003612 JSR PC, TERRPC = TYPE PC OF ERROR MSG 
1778 012620 000430 BR 125/08 [GO RESTORE TRAPS 
1779 012622 104100 T25L07: ERROR +*D64 ‘ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
1780 012624 017767 167674 166362 MOV @BECR1,$REGO SSAVE BECR1 
1781 012632 104103 ERROR +*D67 ‘WRONG GRANT ERROR BIT FALSELY SET 
1782 012634 104102 ERROR +*D66 ‘WITH INT ON DONE = 1 
1783 012636 004767 003570 JSR PC, TERRPC ‘TYPE PC OF ERROR MSG 
1784 012642 000417 BR 125108 *GO RESTORE TRAPS 
1785 012644 104100 T25L03: ERROR +*D64 TERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
1786 012646 017767 167652 166340 MOV @BECR1,$REGO SSAVE BECR1 
1787 012654 104103 ERROR +*D6? *WRONG GRANT ERROR BIT FALSELY SET 
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TEST WRONG GRANTS OR NOT ONE ERROR BIT 


Ww 
oo 
PP 
rr 
N 
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Sece 
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WONAUSWN—O 
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1822 013012 
1823 013014 


003550 


167632 


003530 
003316 


003410 
177776 


003370 
167460 
000100 


166320 


177776 


167572 
167570 
167554 


167536 


167514 


167450 


167412 
167406 
167402 


T25L04: 


T25L08: 
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JSR PC, TERRPC 
BR T2508 
ERROR +*D64 

MOV @BECR1,$REGO 
ERROR +*D65 


JSR PC, TERRPC 
38R PC,RCATCH 


; TYPE PC OF ERROR MSG 
RESTORE 


TRAPS 
TERROR : TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 


;SAVE BECR1 

[NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET 
TYPE PC OF ERROR MSG 

SRESTORE TRAP CATCHER 


MARAAASAASAAAASZASALALALSLAAASE SARA SALAS ALARA RASA A RARER ARRAS SASS SS 


;STEST 32 


TEST TIME DELAY AND BUSS LATENCY ERROR BITS 


1 THE BUS LATENCY ERROR BIT IS SET BY DOING A RELEASE 


>*BUS IMMEDIATE F 
;*ERROR BIT AND BIT 15 


UNCTION AND SETTING THE TIME DELAY a THE 
OF BECRi ARE CHECKED TO SET 


THE 
[*ERROR INTERRUPT IS THEN CHECKED FOR AND THE ERROR CONDITION 
:*IS TESTED TO CLEAR. 


PTT TTT TTT TTT TTT TTT TELE LLL LLLLE LLL 


TST32: 


T26L02: 


T26L03: 


T26L04: 


SCOPE 
MOV #STACK,SP 
MOV #340,a4PSW 


0000, @BECR2 
MOV #T26L01 a 


MOV + nen 


RO 
CMP #400,RO0 
BNE T26L02 
BIT #100,aBECR2 
BNE T26L03 
ERROR +*D70 
ERROR +s 


JSR PC,T 
BIT #100000, BBECRI 
T26L04 


JSR PC, TERRPC 
CLR @4PSb 
NOP 


NOP 

ERROR +*D70 
ERROR +*D58 
JSR_PC, TERRPC 
BR T26L05 


T26L01: CLR 


T26L05: 


@BERE 
BIT #100, a@BECR2 
BEQ T26L05 


JSR PC,DINT 
MOV wig @BECC 


MOV @BE 
MOV #2041,@BECR1 
JSR PC,CRDY 


RESTORE STACK 

;LOCK OUT INTERRUPTS 
CLEAR UBE REG 

SET TIME DELAY BIT 
:SET UP FOR INTERRUPTS 
:D0 RELEASE BUS IMMED. 
INITIALIZE RO 

:DELAY TO WAIT FOR 
BUSS, LATENCY ERROR BIT 


z;WAS BUSS LATENCY ERROR BIT SET? 


BRANCH IF YES 
ERROR: TEST OF ft DALAY AND BUSS LATENCY FAILED 
;TO SET BIT 6 OF BECR2 

:TYPE PC OF ERROR MSG 

WAS i BIT SET? 

BRANCH IF 


IF YES 
ERROR: TEST OF a DELAY AND BUSS LATENCY FAILED 
TO SET BIT 15 OF BECRI 
[TYPE PC OF ERROR MSG 
ALLOW ERROR INTERRUPTS 
* UBE SHOULD INTERRUPT 
tee UBE SHOULD INTERRUPT ON LEVEL 7 
; ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED 
NTERRUPT CPU 


PC aa TERROR MSG 
DISREGARD ~— INTERRUPTS 
SHAVE UBE D 

:SO wit LATENCY REG 


;HOLD FLOP CLEAR 
;WAIT FOR RDY SET 


SEQ 0052 
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IME DELAY AND BUSS LATENCY ERROR BITS SEQ 0053 


im 
lelelelelelelelelele) 
a ad aD ea cad ad ad aD ad od 

WWWWNWAI WNW 
me ae 
vw 


oO 
== 
iin 
{SSS 


Mm 
SNMNOANS 


013224 


005077 
767 


1894 013350 
1895 013354 


167376 CLR @BERE ; CLEAR gin ERROR IF SET 
00306 EF 


JSR PC,RCATCH RESTOR 


—MAARARAAAALAAAZALLAALARAASERALALALARLAA SALA A RAR AR ARRAS ASRS A RASS 


TATEST 33 TEST MULTIPLE INTERRUPTS SET RDY BIT 


MARAE RAASAALALALASALALALALALAASAAAR EASA AAAS ERR ARRAS ARRAS ASRS S| 


$§133: OPE 
V #STACK,SP INITIALIZE STACK 
PC,CLRREG [CLEAR ALL UBE REG 
PC ,DINT ;DISREGARD INTERRUPTS 
aAPSwW pe INTERRUPTS 
167332 #177776, aBECC HAVE UBE DO 2 CYCLES 
167332 :D0 TIME DLY 
167322 HAVE UBE INT. VIA BR4 
ZCHECK FOR RDY SET 
[WAS RDY SET? 


BRANCH IF YES 
sERROR: TEST OF MULTIPLE INTERRUPTS FAILED TO SET RDY 
JSR PC, :TYPE PC OF ERROR MSG 
T31L01: JSR PC,RCATCH ZRESTORE TRAP CATCHER 


WE AAAAASAASAASAAAASALALASAARSALASLASASARAR ASA RAR RASS R ALAR SAAR RASS SS S| 


DeTEST 34 TEST POWER DOWN SEQUENCE 
+ 


‘THE POWER DOWN TEST IS ONLY DONE IF SW4=1. 
:*THE POWER DOWN IS TESTED FOR AND THEN THE POWER UP 
:*I§ TESTED. AN INTERNAL REG RO COUNTS FOR A TIME >150 
:*MS TO SEE IF THE CPU GETS POWERED UP. THE PROGRAM 
‘*THEN WAITS FOR A TIME >150MS TO SEE IF THE CPU 
>*GETS POWERED DOWN AGAIN. 
ST EAA RE REEREEEEEE EEE EREEREEREEEREREEREREK EERE EERE EEE 
TST34: E 
166000 MO ; ::D0 1 ITERATION 
165730 0,aSWR SEE IF POWER DOWN TO BE TESTED 
TST3 +:GO TO NEXT TEST IF SWR4 = 0 
177776 :LOCK OUT INTERRUPTS 
S INITIALIZE STACK 
[SAVE POWER FAIL VECTOR ON STACK 
av26, : SAVE POWER FAIL VECTOR ON STACK 
000024 meri 3026 Al 
000026 ar26 
167216 0. @BECR2 
NOP 


ERROR +*D73 ;ERROR: TEST OF POWER DOWN BIT FAILED 
ERROR +*D74 :TO POWER DOWN CPU 
003110 JSR_PC,TERRPC TYPE PC e ERROR MSG 
BR T27L02 [RESTORE TRAPS 
T27L01: CMP (SP)+,(SP)+ SRESTORE STACK 
013370 000024 MO #127105, aes :SET_UP FOR POWER UP SEQUENCE 
: INITIALIZE COUNTER 
; INITIALIZE 4 jee 


3C FOR AT 
‘GREATER THAN 150 MS 


CL 
T27L04: : 


#4,R1 :1S TIME > 150 MS? 
T27L.04 “BRANCH IF NO 
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134 TEST POWER DOWN SEQUENCE SEQ 0054 
18% 013356 104111 ERROR +*D73 ; ERROR: Test OF POWER DOWN BIT FAILED 
1897 013360 104113 ERROR +*D75 R UP CPU 
1898 013362 004767 003044 JSR PC, TERRPC ‘ TYPE PC OF ERROR MSG 
1899 013366 000426 BR T27L02 SRESTORE TRAPS 
1900 013370 012737 013432 000024 127L03: MOV #T27L05,a424 ‘SET UP TO POWER DOWN AGAIN 
1901 013376 005000 CLR RO 
1902 013400 005001 CLR RI 
1903 013402 005200 T27L06: INC RO :COUNT FOR A TIME 
1904 013404 005700 TST RO ‘GREATER THAN 15C MS 
1905 013406 001375 BNE T27L06 
1906 013410 005201 INC 
1907 013412 022701 000004 CMP #4,R1 :1S TIME > 150 MS? 

1908 013416 001371 BNE T27L06 ‘BRANCH IF NO 
1909 013420 104111 ERROR +*D73 sERROR: TEST OF POWER DOWN BIT FAILED 
1910 013422 104114 ERROR +*D76 =70 REPOWER DOWN CPU 
1911 013424 004767 003002 JSR PC, TERRPC =TYPE PC OF ERROR MSG 
1912 013430 000405 BR T27L02 :GO CHECK POWER DOWN BIT 
1913 013432 022626 127L05: CMP (SP)+,(SP)+ sRESTORE STACK 
1914 013434 012737 013444 000024 MOV #727L02,a%24 :SET UP TO POWER UP AGAIN 
1915 013442 000001 WAIT :WAIT TO POWER UP AGAIN 
1916 013444 032777 000020 167054 127L02: BIT #20,aBECR2 ‘WAS POWER DOWN BIT SET? 
1917 013452 001004 BNE T27L07 “BRANCH IF YES 
1918 013454 104111 ERROR +*D73 TERROR: TEST OF POWER DOWN BIT FAILED 
1919 013456 104115 ERROR +*D77 *TO SET BIT 4 OF BECR2 
1920 013460 004767 002746 JSR PC, TERRPC > TYPE PC OF ERROR MSG 
1921 013464 012637 000026 T27L07: MOV (SP)+,a#26 SRESTORE POWER FAIL VECTOR 
1922 013470 012637 000024 MOV (SP)+,a#24 
1923 013474 005077 167026 CLR @BECR2 :CLEAR POWER DOWN BIT 
1930 TOR PRB RASGAAAALASLASLASLLASLALALSES ESE SES SSE SSA SES EER RS RARER ERR R SSSA S SSS 
TEST 35 TEST DCLO CLRS BECC,BEBA,BECR2,0,6,7,15 
* STHIS TEST IS ONLY DONE IF SW4=1. 
:* TEST DCLO CLRS BECC,BEBA,BECR2.& BITS,0-6,7-15,0F BECR1 
MBAS AASAAAAALALALLSESSLASLALESAS ESSER ESE SES ARES E RSA R RAR RRR RR SSSA SS SO | 
013500 000004 1$135: SCOPE 
013502 012767 000001 165524 MOV #1,STIMES ::D0 1 ITERATION 
1931 013510 032777 000020 165454 BIT #20,aSWR =SEE IF POWER DOWN TO BE TESTED 
1932 013516 001002 BNE T28L10 ‘BRANCH IF SW4=1 
1933 013520 000167 000410 JMP TSTB :60 TO NEXT TEST 
1934 013524 012777 177777 166766 128L10: MOV #177777, @BECC HAVE UBE DO 1 CYCLE 
1935 013532 012777 000003 166766 MOV #3, aBECR2 ‘SET ADDRESS BITS 16, 17 
1936 013540 012777 160000 166754 MOV #160000, a@BEBA “LOAD UBE WITH ADDRESS THAT RETURNS NO SSYN 
1937 013546 004767 002524 JSR PC,DINT [DISREGARD INTERRUPTS 
1938 013552 012777 002041 166744 MOV #2041,a@BECR1 ‘HAVE UBE DO DATI SO CCOVF=1 AND NSSYN ERROR = 1 
1939 013560 005037 177776 CLR a#PSW ‘ALLOW INTERRUPTS 
1940 013564 000001 WAIT ‘WAIT TILL ERROR INTERRUPT 
1941 013566 013746 000024 MOV a#24,-(SP) ; STORE POWER VECTOR ON STACK 
1942 013572 013746 000026 MOV a426,-(SP) STORE POWER VECTOR ON STACK | 
1943 013576 012777 177777 166716 MOV #177777,@BEBA : LOAD ADDRESS REG WITH ALL 
1944 013604 012777 177777 166706 MOV #177777.@BECC “LOAD CYCLE COUNT REG WITH oi ome 
1945 013612 012777 077776 166704 MOV #77776, @BECR1 *LOAD BECRI WITH ONES 
1946 013620 012737 013636 000024 MOV #T28L01,a424 :SET UP FOR POWER DOWN 
1947 013626 012777 040037 166672 MOV #40037, aBECR2 “LOAD BECR2 WITH ONES AND DO POWER DOWN 
1948 013634 000001 WAIT ‘CPU SHOULD POWER 
1949 013636 022626 T28L01: CMP (SP)+,(SP)+ : RESTORE STACK 
1950 013640 012737 013650 000024 MOV #728L05,a%24 SSETUP FOR POWER 


ma 
Was 


aw UNIBUS EXER MOD MACRO M1111 


TEST DCLO CLRS BECC,BFBA,BECR2,0,6.7,1 


1951 013646 


== 
Ww 
INN 
n= 
on 


SESSPEREES 
# 


1973 014004 


1981 014046 
1982 014050 
1983 014056 


1994 014130 
1995 
1996 014134 
1997 
2004 


67 
012637 
012637 


4 
012706 
012737 


000020 
166636 
165330 
166624 


177776 


014046 
000020 


001100 
000340 


166650 
165330 


165310 
165274 


165260 
165256 
166554 


165236 


177776 


000024 
166462 


000024 


177776 


T28L05: 


BEQ 
T28L02: 


T28L03: 


T28L06: 


T28L08: 


T28L09: 


T28L04: 


TSTB: 
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WAIT 
BIC #20,aBECR2 
MOV BECC, $REGO 
CLR $REGO 
aBE CC 
BNE T28L02 
MOV BEBA, $REGO 
@BEBA 


T28L02 
MOV BECR2,$REGO 
@BECR2 


BEQ T28L06 
CLR @4PSwW 


NOP 

MOV #T28L08,a4%24 
BIS #20, aBECR2 
WAIT 


CMP (SP)+,(SP)+ 
MOV #T28L09,a424 
WAIT 


CLR @BECR2 
TST @BECR2 


MOV @BECR2,$REG1 
CLR $REG2 

ERROR +*D78 

JSR PC, TERRPC 
JSR PC,RCATCH 
MOV (SP)+,a#26 
MOV (SP)+,a424 


SEQ 0055 


CPU SHOULD POWER UP 
;CLEAR POWER DOWN BIT 
;SAVE BECC ADDRESS 
SAVE CORRECT DATA 

3 (BECC)=0? 


BRANCH IF NO 
; SAVE BEBA ADDRESS 
; (BEBA) =0? 


BRANCH IF _NO 
;SAVE BECR2 ADDRESS 
;WAS a Nee 


SAVE BECR1 ADDRESS 
:SAVE CORRECT DATA, (BECR1) 
WAS aoe — 


“SAVE BAD DATA 
ZERROR: DCLO FAILED TO CLEAR REG 


;LOCK OUT INTERRUPTS 
:SET TIME DLY BIT 
[DO RELEASE BUSS IMMED. TO SET LATENCY ERROR BIT 
: TEST LATENCY ERROR BIT 
[WAIT TILL IT SETS 
SALLOW LATENCY ERROR INTERRUPT 
sALLOW INTERRUPT TO BE IGNORED 
ET UP POWER DOWN 


; OWN BIT 
;WAS BUSS weer ERROR BIT CLEARED? 


BRANCH IF YE 

SAVE REG ADDRESS 

SAVE REG DATA 

>SAVE CORRECT DAT 

ERROR: DCLO FAILED TO CLEAR REG 
; TYPE PC OF ERROR MSG 

SRESTORE TRAP CATCHER 

SRESTORE POWER VECTOR 

RESTORE POWER VECTOR 


'MmMAARARARALAALASLALLSSLLELARASARASASRASRAAS SARA RARE RR RRR RRR RRS SESE ES 


:ETEST 36 


TEST SIMULTANEOUS GO ADDRESS 


1 THE UBE IS SETUP TO INTERRUPT ON LEVEL 7 AND 
:*THEN TOLD TO GO VIA THE SIMULTANEOUS GO. NO 


* INTERRUPT INDICATES AN ERROR. 


MADARA SRARAASAASLLASLALASSSSARASARSSASRASE SEAS AAR RRR RRR ARRAS RRS RRR SESS Os 


15136: 


SCOPE 
MOV #STACK,SP 
MOV #340, a4PSW 


RESTORE STACK 
;LOCK OUT INTERRUPTS 


— 
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' 
EST SIMULTANEOUS GO ADDRESS SEQ 0056 


2007 014150 004767 002016 JSR PC,CLRREG ;CLEAR ALL UBE REGS. 
014212 166350 Mov #T09L01, a ; SETUP TO RECEIVE INTERRUPT 
000020 166334 MOV #20,@BECR TUP TO DO BR=7 
166340 INC @BEGO 
000300 177776 MOV #300,a4PSW 
;UBE SHOULD INTERRUPT HERE 


NOP 
ERROR +**D21 ;ERROR: SIMULTANEOUS GO FAILED 
002220 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
pie 014212 002006 TOSLO1: JSR PC,RCATCH sRESTORE TRAP CATCHER 


6 
2017 
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137 SEQ 0057 


DYNAMIC TEST OF UBE 


2029 + RARER AAR ARATE REE E RE RERRARAAAAETEETREERREE RET ARAe 


; TEST 37 DYNAMIC TEST OF UBE 


TaTHIS TEST EXERCISES THE MOST HARDWARE IN THE 
*UBE AT ONE TIME. THE EXERCISOR IS SET UP TO DO EIGHT 
:*DATOB ON DATIP XFERS VIA NPR AND INTERRUPT ON DONE. 
:*AFTER INTERRUPTING, A BUFFER AREA IS EXAMINED TO SEE IF 
Z*THE OPERATIONS WERE DONE PROPERLY. THE ABOVE IS THEN 
*REPEATED 100 TIMES. 
2g TAARARAAAAARAARAORARAAAAARARERAARAARARAAAHAARRARARARRRARAARARRDE 
014216 000004 15137: SCOPE 
014220 012767 000001 165006 MOV #1, STIMES ::D0 1 ITERATION 























C2 
TY 


$$$ $_$_$____—_, 
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TEST OF UBE SEQ 0058 

2031 014226 004767 001740 JSR PC, CLRREG :CLEAR UBE REG 

2032 014232 005002 CLR R2 ; INITIALIZE COUNT 

2033 014234 005037 177776 CLR awPSw “ALLOW INTERRUPTS 

2034 014240 012700 030062 T29L04: MOV #BUFF1,RO :GET BUFFER ADDRESS 

2035 014244 012720 052525 T29L01: MOV #52525. (RO) s OAD BUFFER 

2036 014250 020027 030104 CMP RO, ABUFF 1+22 SENTIRE BUFFER LOADED? 

2037 014254 001373 BNE T29L01 “BRANCH IF NO 

2038 014256 012777 014336 166246 MOV #1291 02. _BINTVEC *SET UP FOR INTERRUPTS 

2039 014264 012777 030062 166230 MOV #BUFF1,aBEBA ‘LOAD BUFF ADDRESS IN UBE 

2040 014272 012777 177760 166220 MOV Fem 66" @BECC ‘SET UBE TO DO 16 CYCLES 

2041 014300 012777 042561 166216 MOV #42561, aBECR1 D0 DATOB ON DATIP. AND INT. VIA BR7 WHEN DONE 

2042 014306 005000 CLR RO : INITIALIZE COUNTE 

2043 014310 016767 013566 013564 129L06: MOV BUFF1+20,BUFF1+20 :DO BACKGROUND NOISE PATTERN 

2044 014316 005200 INC RO ‘WAIT FOR COUNTER RO 

2045 014320 005700 TST RO [TO OVERFLOW. IF DOES 

2046 014322 001372 BNE T29L06 * UBE FAILED TO INTERRUPT 

2047 014324 104120 ERROR +*D80 sERROR: DYNAMIC TEST OF UBE FAILED 

2048 014326 106072 ERROR +*D58 :TO INTERRUPT CPU 

2049 014330 004767 002076 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 

2050 014334 000432 BR 129107 ‘GO RESTORE TRAPS CATCHER 

2051 014336 022626 T29L02: CMP (SP) (SB)+ SRESTORE STACK 

2052 014340 012700 030062 MOV #BU [GET BUFFER ADDRESS 

2053 014344 022710 125652 T29L05: CMP ni23638. ino) WAS DATA SHIFTED PROPERLY? 

2054 014350 001011 BNE T29L BRANCH TO ERROR IF NO 

2055 014352 005720 TST (R ao ZINC RO BY 2 

2056 014354 022700 030102 CMP #BUFF1+20.R0 ‘AT END OF BUFFER? 

2057 014360 001371 BNE T29L05 BRANCH IF NO 

2058 014362 005202 INC R2 [UPDATE COUNT 

2059 014364 020227 000100 CMP R2,4100 ‘WAS UBE EXERCISED 100 TIMES? 

2060 014370 001323 BNE T29L04 “BRANCH IF NO 

2061 014372 000413 BR T29L07 SRESTORE TRAPS 

2062 014374 010067 164614 T29L03: MOV RO, SREGO : SAVE ADDRESS 

2063 014400 011067 164612 MOV (RO), $REG1 “SAVE BAD DATA 

2064 014404 012767 125652 164606 MOV #125652, SREG2 SSAVE CORRECT DATA 

2065 014412 104120 ERROR +*D80 sERROR: DYNAMIC TEST OF UBE FAILED 

2066 014414 104121 ERROR +*D81 ‘TO LOAD PROPER DATA 

<067 014416 004767 002010 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 

he 014422 004767 001576 T29L07: JSR PC,RCATCH sRESTORE TRAP CATCHER 

2070 SATIAIIIILIAAAAAIAAT SALA AIA LA LL AAL ATA AALTLAAATLALAAATAAAAESTAS 

2071 RETURN ROUTINE TO TEST NEXT UBE BEFORE DO LAST TEST 

2072 SIIITIIIIIISIIAITAATA TAAL ATA TATA ATA LA AA TTALAASATE TT SAAA 

2073 014426 000004 SCOPE :SCOPE FOR PREVIOUS TEST 

2074 014430 004767 001536 NUBE : JSR PC,CLRREG = CLEAR UBE SO NO INT. 

2075 014434 000167 166736 NUBE1: JMP ACALC °60 SEE IF MORE UBE 

2077 014440 012767 014462 164472 LAST: MOV #ALAST1,$LPADR SETUP LOOP ADDRESS FOR LAST TEST 

2078 014446 012767 014462 164466 MOV #LAST1,$LPERR + SE TUP LOOP ON ERROR ADDRESS FOR LAST TEST 

thd 014454 105367 164454 DECB $TSTNM ADJUST TEST NUMBER 

2081 

2082 

2101 FTAA AREA AAA AERA AAEAAARAEERAAEAEERE RARER RAEAARARARREARAR ERASE 
Z*TEST 40 TEST PASSING OF GRANTS 
** 


**THIS TEST IS ONLY RUN IF THERE ARE MORE THAN ONE 
“*UBE.1T IS COMPOSED OF TWO PARTS.THE FIRST PART CHECKS THAT 





mS 
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140 TEST PASSING OF GRANTS SEQ 0059 
7 eA HIGHER ELECTRICAL PRIORITY UBE WITH ALL BR LEVELS =1 
;*AND GO BIT =0 WILL PASS A GRANT TO THE NEXT LOWER ONE. 
* THEN THIS SAME UBE IS CHECKED TO ALSO PASS A GRANT WHEN ALL BR=0 
[*AND THE GO BIT IS ENABLED. 
s® THE SECOND PART aon hua THAT A UBE WITH A HIGHER ELECTRICAL PRIORITY 
[*BUT DOING A LOWER BR T A UBE OF LOWER ELECTRICAL 
pein} a Ll WILL PASS THE GRANT TO THE UBE OF LOWER ELECTRICAL 


: ON THE BUS MUST BE SWAPPED WITH A HIGHER 
ONE AND THEN THE ENTIRE PROGRAM RERUN INORDER 
THAT ITS PASSING GRANT LOGIC IS TESTED. 


Wen A AARRRRARARARASASLALEAASARSAESARSASASLESASRAR ARR RRA RR RR RASA RASS SS ED | 


** 
;* 
15140: SCOPE 
A 


:*PRIORITY. 
; NOTE: THE 7uBE WITH THE LOWEST ELECTRICAL PRIORITY 

014460 000004 
2102 014462 005767 166066 LAST1: TST BE2BD z1S THERE MORE THAN ONE EXERCISOR? 
2103 014466 001013 BNE T30L01 “BRANCH IF YES 
2104 014470 032777 010000 164474 BIT #SW12,aSwWR : INHIBIT TYPEQUTS? 
2105 014476 001005 BNE 1$ SBRANCH IF YES 
2106 014500 104401 027356 TYPE ,MSG11 zPASSING OF GRANTS NOT TESTED WITH 1 EXERCISOR 
2107 014504 012767 000001 164522 MOV #1,$TIMES :DO 1 ITERATION IF THIS TEST NOT DONE 
2108 014512 000167 001332 1$: JMP $EOP *GO TO END OF TEST 
2310 :DETERMINE ELECTRICAL PRiORITY OF EXERCISORS 
2112 014516 012706 001100 T30L01: MOY #STACK : INITIALIZE STACK 
2113 014522 012777 014730 166022 MOV +TS0L0S SBE 1VEC “SET UP UBE1 INTERRUPT HANDLER 
2114 014530 016700 166016 MOV BE1VEC,RO 
2115 014534 012760 000340 000002 MOV #340,2(RO) | 
2116 014542 012777 014744 166020 MOV #T30L05, @BE2VEC :SET UP UBE2 INTERRUPT HANDLER 
2117 014550 016700 166014 MOV BE2VEC.RO 
2118 014554 012760 000340 000002 MOV #340, 20H) 
2119 014562 005767 166020 TST BE3VE ZARE THERE Ee UBE ? 
2120 014566 007423 BEQ T Pe OL Sf “BRANCH IF 
2121 01457 012777 014760 166010 MOV #730L04,aBE 3VEC *SET UP ines INTERRUPT HANDLER 
2122 014576 016700 166004 MOV BE3VEC,RO 
2123 014602 012760 000340 000002 MOV #340, 2(RO) 
2124 014610 005767 166010 TST BE4VEC ZARE THERE 4 UBE? 
2125 014614 001410 BEQ T30L21 *BRANCH IF NO 
2126 014616 012777 014774 166000 MOV #T SOLOS, @BESVEC ‘SET UP UBE4 INTERRUPT HANDLER 
2127 014624 016700 165774 MOV BE4VEC,RO 
2128 014630 012760 000340 000002 MOV rots 2(RO) 
2129 014636 012700 030062 T30L21: MOV #BUFF1,RO :GET BUFFER ADDRESS 
2130 014642 005001 CLR R1 3 COUNT OF INTERRUPTS 
2131 014644 012737 000340 177776 MOV #340, a4PSW “SET PSW PRIORITY=7 
2132 014652 012777 000020 165664 MOV #20,@BE1(R1 :LCAD FIRST UBE TO DO INT. VIA BR7 
2133 014660 012777 000020 165674 MOV #20. aBE2CR1 “LOAD SECOND UBE TO DO INT. VIA BR7 
2134 014666 005767 165706 TST BE3CR1 ‘TEST IF 3 EXERCISORS 
2135 014672 001411 BEQ T30L07 :BRANCH IF NO 
2136 014674 012777 000020 165676 MOV #20, aBE3CR1 [LOAD THIRD UBE TO DO INT. VIA BR? 
2137 014702 005767 165710 TST BE4CRI ‘TEST IF 4 EXERCISORS 
2138 014706 001403 BEQ T30L07 “BRANCH IF NO 
2139 014710 012777 000020 165700 MOV #20, aBE4CR1 ‘LOAD FOURTH UBE TO DO INT. VIA 8R7 
2140 014716 005277 165612 T30L07: INC @BEGO [LET ALL EXERCISORS INTERRUPT 
2141 014722 005037 177776 CLR aaPSwW TALLOW INTERRUPTS 
2142 014726 000001 WAIT ‘WAIT FOR 1ST INTERRUPT 
2143 012720 002536 T30L02: MOV #BE1BD, (RO)+ SLOAD BUFFER WITH POINTER TO ADDRESS OF UBE 
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140 TEST PASSING OF GRANTS SEG 0060 
2144 014734 012777 006002 165602 MOV #6002,a@BE1(R1 :SETUP FIRST UBE TO DO A FUN 3 
2145 014742 000421 BR T30L06 :60 SEE IF ALL UBE INTERRUPTED 
2146 014744 012720 002554 T30L03: MOV #BE2BD, (RO)+ “LOAD BUFFER WITH POINTER To UBE ADDRESSES 
2147 014750 012777 006002 165604 MOV #6002, @BE2CR1 ‘SETUP SECOND UBE TO DO A FUN3 
2148 014756 000413 BR T30L06 :G0 SEE IF ALL UBE IN TERRUPED 
2149 014760 012720 002572 T30L04: MOV #BE3BD, (RO) + LOAD BUFFER WITH POINTER TO UBE ADDRESS 
2150 014764 012777 006002 165606 MOV #6002, aBE 3(R1 {SETUP THIRD UBE TO DO A FUN3 
2151 014772 000405 BR T30L06 :G0 SEE IF ALL UBE INTERRUPTED 
2152 014774 012720 002610 T30L05: MOV #BE4BD, (RO) + LOAD BUFFER WITH POINTER TO UBE ADDRESS 
2153 015000 012777 006002 165610 MOV #6002, @BE4(R1 SSETUP FOURTH UBE TO DO A FUN3 
2154 015006 022626 T30L06: CMP (SP)+.(SP)+ SRESTORE STACK 
2155 015010 005201 INC R1 [COUNT INTERRUPTS 
2156 015012 020167 165610 CMP R1,UCNT SHAVE ALL EXERCISORS INTERRUPTED? 
2157 015016 001403 BEQ T30L22 “BRANCH IF YES 
2158 015020 005037 177776 CLR aaPSw TALLOW NEXT UBE TO INTERRUPT 
2159 015024 000001 WAIT ‘WAIT FOR INTER RUPT 
2160 015026 024040 T30L22: CMP ~(RO),-(RO) =DECREMENT RO B 
Sic> 015030 011067 013036 MOV (RO) ,BUFF1+10 *PUT NEXT TO LMeST PRIORITY POINTER IN BUFF 1+10 
acer ;BUFFER NOW CONTAINS VECTORS IN ORDER OF ELECTRICAL PRIORITY 
aye sPART 1 
2167 015034 016700 165566 MOV UCNT,RO :GET COUNT OF UBE 
2168 015040 005300 DEC RO ADJUST COUNT 
2169 015042 005001 CLR R1 CLEAR INDEX REG 
2170 015044 016102 030062 T30L28: MOV BUFF1(R1),R2 “GET PTER TO ADDRESS OF HIGHER PRIORITY UBE 
2177 015050 012772 000036 000006 MOV #36,a6(R2) :SET ALL BR =1 IN THIS UBE 
2172 015056 005721 TST (R13+ [UPDATE INDEX 
2173 015060 016103 030062 MOV BUFF1(R1),R3 [GET PTER TO ADDRESS OF NEXT LOWER PRIORITY UBE 
2174 015064 012773 015202 000014 MOV #730L25,a14(R3) [SET UP FOR IN 
2175 015072 012773 000002 000006 130L30: MOV #2,a6(R3) :SETUP LOWER PRIORITY UBE FOR BR4 
2176 015100 005273 000006 T20L26: INC @6(R3) SHAVE UBE INT. 
2177 015104 005037 177776 CLR a#PSw ZALLOW INT. 
2178 015110 000240 NOP SSHOULD INT. HERE 
2179 015112 012737 000340 177776 MOV #340, a4PSW SLOCK OUT INT. 
2180 015120 104122 T30L29: ERROR +*D82 sERROR: TEST OF PASSING GRANTS FAILED 
2181 015122 032777 020000 164042 BIT #SW13,aSWR ‘ INHIBIT ERROR TYPEOUTS? 
2182 015130 001022 BNE 1$ [BRANCH IF YES 
2183 015132 016367 000014 164054 MOV 14(R3),$REGO ‘SAVE INT. VECTOR 
2184 015140 104401 027230 TYPE ,MSG7 ‘UB WITH INT. VECTOR: 
2185 015144 016746 164044 MOV $REGO,-(SP) :;SAVE $REGO FOR TYPEOUT 
015150 104402 TYPOC ==GO TYPE--OCTAL ASCII(ALL DIGITS) 
2186 015152 017367 000006 164036 MOV a6(R3),$REG1 ?SAVE (BECR1) 
2187 015160 104401 026207 TYPE ,DH65 tWITH BECR1= 
2188 015164 016746 164026 MOV $REG1,-(SP) +:SAVE $REG1 FOR TYPEOUT 
015170 104402 TYPOC °:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
2189 015172 104401 027323 TYPE .MSG10 :SHOULD HAVE INT. 
2190 015176 000167 000474 1$: JMP 130L12 *GO TO END OF TEST 
2191 015202 006373 000006 T30L25: ASL @6(R3) ‘DO NEXT BR LEVEL 
2192 015206 042773 000400 000006 BIC #400,a6(R3) “CLEAR SHIFTED RDY BIT 
2193 015214 032773 000040 000006 BIT #40,a6(R3) TALL BR TESTED? 
2194 015222 001726 BEQ 130126 “BRANCH IF NO 
3196 015224 012773 015250 000014 MOV #130L27,a14(R3) :SETUP FOR INT. 
2197 015232 012772 015120 000014 MOV #130L29 a14(R2) ‘SETUP FOR ERROR INT. 
2198 015240 012772 000001 000006 MOV #1,a6(R2) ‘HAVE HIGHER UBE TRY TO INT. 
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3198 015246 BR 13030 ;LET LOWER UBE INT. 

2201 015250 006373 000006 T30L27: ASL @6(R3) :DO NEXT LEVEL 8R 

2202 015254 042773 000400 000006 BIC #400,a6(R3) =CLEAR SHIFTED RDY 

2203 015262 032773 000040 000006 Bit #40, a6(R3) ZALL BR TESTED D? 

2204 015270 001703 BEQ T30L26 [BRANCH IF 

2205 015272 012772 006003 000006 MOV #6003, @6(R2) HAVE HIGHER. Be DO FUN3 

2206 015300 005037 177776 CLR aaPSW ;ALLOW REQUES 

2207 015304 105772 000006 1$: TSTB a6(R2) S UBE DONE ? 

2208 015310 100375 BPL 1$ “BRANCH IF NO 

2209 015312 012737 000340 177776 MOV #340, a“PSw sSET LEVEL =7 

2210 015320 005300 DEC R SADJUST UBE COUNT | 
2211 015322 005700 1ST RO ZALL UBE TESTED? 

ele 015324 001247 BNE T30L28 “BRANCH IF NO 

esi¢ sPART 2 

2216 015326 012700 000510 MoV #510,RO :GET FIRST POSSIBLE VECTOR AREA 

2217 015332 012720 015506 7301.09: MOV #T30L08, (RO)+ ;SET UP VECTOR AREA TO HANDLE DOUBLE INTERRUPTS 
2218 015336 012720 000340 MOV #340, (RO) + :SET PRIORITY = 7 

2219 015342 022700 001000 CMP #1000,RO ZAT END OF AREA? 

2220 015346 001371 BNE T30L09 “BRANCH IF NO 

2221 015350 016700 012506 MOV BUFF1,RO *GET HIGHEST PRIORITY UBE ADDRESS POINTER 

2222 015354 016701 012504 MOV BUFF1+2,R1 :GET NEXT PRIORITY UBE ADDRESS POINTER 

2223 015360 012770 000002 000006 130L14: MOV #2,a6(RO) [HAVE HIGHER PRIORITY UBE DO BR4 

2224 015366 012771 000004 000006 MOV #4,a6(R1) SHAVE NEXT LOWER ELEC. PRIORITY UBE DO BRS 

2225 015374 012770 015506 000014 MOV #T30LC8,a14(RO) :SET UP HIGHER PRIORITY UBE VECTOR FOR DOUBLE IN 
2226 015402 012771 015422 000014 MOV #7T30L10,a14(R1) SET UP FOR INTERRUPT FROM NEXT LOWER ELEC. PR iORi TY UBE 
2227 015410 005277 165120 T30L11: INC @BEGO :START INTERRUPT 

2228 015414 005037 177776 CLR a#PSwW ‘ALLOW INTERRUPTS 


WAIT 

T30L10: CMP (SP)+,(SP)+ ;RESTORE STACK 
000006 ASL a6(R1) SHAVE NEXT PRIORITY UBE INT. ONE LEVEL HIGHER 
000400 000006 #400, a6(R1) “CLEAR SHIFTED RDY 
000040 000006 #40. 0 -a6(R1) : TESTED ALL BR LEVELS? 
012420 Le “Burr 1+10 STESTED ALL UBE POSSIBLE? 

T30L1 ‘BRANCH IF YES TO CLEAR BECR1 AND RESTORE TRAPS 

012402 : JUST TESTED. FIRST UBE? 


BNE L 
012376 TEST SECOND HIGHEST PRIORITY UBE 
012374 


BR 
012366 T30L13: 
012364 MO 

:60 TEST 9 v4 HIGH PRIORITY UBE 


BR T30L14 
T30L08: CMP (SP)+,(SP)+ SRESTORE STA 
000014 163476 MOV 14(RO) ,$REGO SAVE INTERRUPT VECTOR OF BAD UBE 
163472 . SREG1 SAVE BAD BR LEVEL 
000014 163466 foe NEXT HIGHER PRIORITY UBE VECTOR 
000004 000006 4,06(R1) S BR=5? 


‘BRANCH IF NO 
BR=5 

:GO INDICATE ERROR 
[WAS BR=6? 


000005 163452 


BR T30L17 
000010 000006 130L15: BIT #10, agi 
1404 BEQ 130L16 BRANCH IF NO 
012767 000006 163432 MOV #6,$REG3 7 INDICATE BR=6 





8h 


CZ2KUBCO UNIBUS EXER MOD MACRO M1111 


TEST PASSING OF GRANTS 


2256 015570 
2257 015572 
2258 015600 
2261 015612 
2262 015616 

015622 
2263 015624 
2264 015630 

015634 
2265 015636 
2266 015642 
2267 015646 

015652 
2268 015654 
2269 015660 


2279 734 
2280 615742 
2281 015746 
2282 015752 
2283 01 size 


2304 016042 
2305 016044 
2306 
2307 
2308 


000007 
020020 


27230 
163372 


027252 
163362 


027267 


027252 
163336 


027323 
34 


001000 
163076 
020425 


163422 
163362 


164640 
164650 


164652 


164654 


T30L16: 
T30L17: 


T30L12: 


5$: 
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BR T30L17 :GO_ INDICATE ERROR 
MOV #7,$REG3 ; INDICATE BR=7 
ERROR +* SERROR: TEST OF PASSING GRANTS FAILED 


‘INHIBIT ERROR TYPEOUTS? 
L12 ‘BRANCH IF YES 
TYPE ,MSG7 [TYPE FAILING UBE VECTOR 
V $REGO,-(SP) £3 SAVE $REGO FOR TYPEOUT 
TYPOC +:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE ,MSG8 ‘TYPE FAILING UBE 7BR EVEL 
MOV $REG1,-(SP) +:SAVE $REG1 FOR T YPEOUT 
TYPOC +:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 


TYPE ,MSG9 

TYPE {MSG7 ; TYPE UBE USED TO TEST FAILING ONE 
MOV $REG2,-(SP) 7 SAVE $REG2 FOR TYPEOUT 

TYPOC 3GO_ TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE ,MSG8 ;TYPE BR LEVEL TESTING 

MOV $REG3,-(SP) 7;SAVE $REG3 FOR TYPEOUT 


3:GO TYPE--OCTAL ASCIICALL DIGI1S) 
: TYPE PC OF ERROR MSG 


TYPOC 
TYPE ,MSG10 


Vv 
MOV #6003, @BE2CR1 


TST _ zARE THERE 
BEQ BRANCH IF NO 
MOV #6003. @BE3CR1 SETUP UBE TO DO A FUN3 


TST BE4CR1 ZARE THERE 4 UBE? 

BEQ 1$ CH IF NO 

MOV — @BESCR1 [SETUP UBE TO DO A FUN3 
CLR a4PSW SALLOW ALL UBE TO DO FUN3 
TSTB_@BE1CR1 FIRST a DONE ? 

BPL BRANCH IF NO 

TSTB_ @BE2CR1 ; SECOND UBE DONE ? 

BPL 3$ [BRANCH IF NO 

TST BE3CR1 s ARE THERE THREE UBE? 
BEQ 6$ CH IF NO 

TSTB @BESCR1 THIRD UBE DONE? 

BPL 4$ BRANCH IF NO 

TST BE4CR1 TARE THERE 4 UBE? 

BEQ 6$ : CH IF NO 

TSTB @BESCR1 FOURTH UBE DONE? 

BPL 5$ ;BRANCH IF NO 


RESTORE TRAP CATCHER 


6$: MOV #510.R0 :GET FIRST VECTOR ADDRESS 
MOV #512.R1 
T30L20: MOV R1,(RO)+ :PUT ADDRESS OF NEXT LOC IN THIS ONE 
CLR (RO)+ *PUT HALT IN NEXT LOCATION 
CMP (R1)+,(R1)+ SINC R1 BY 4 
CMP RO,#1000 SAT END OF VECTOR AREA? 
BNE T30L20 “BRANCH IF NO 
TST $PASS ‘FIRST PASS OF PROGRAM? 
BNE $EOP “BRANCH IF NO 
TYPE ,MSG2 TALL EXERCISORS TESTED 
*NOTE:TO TEST PASSING OF GRANTS FOR 


; THE LAST UBE,IT SHOULD BE 
[SWAPPED WITH A UBE OF HIGHER 


SEQ 0062 





™N 


+ etl UNIBUS EXER MOD oe m1111 
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0 0 000004 
016052 005067 163056 
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6062 
016066 042767 190000 163036 


401 016155 
016114 016746 163012 


016122 104401 016152 
000042 


016152 377 377 
016155 015 012 
16160 116 104 
016163 120 101 
016166 123 040 
016171 000 
2313 
2314 
2315 
2316 016172 005077 164332 
2317 016176 005077 164324 
2318 016202 005077 164316 
2319 016206 005077 164310 
2320 016212 005077 164302 
2321 016216 005077 164274 


2322 016222 000207 
2323 
2324 
2525 
2326 016224 010546 


-SBTTL END OF PASS ROUTINE 


eee TTT titi iit ii titi iii iti iii titi ii iti iii iii iii iii 
‘INCREMENT THE PASS NUMBER (S$PASS) 

:*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A sag GO TO IT 


;*IF THERE ISN'T 


SEOP: 


SEOPCT: . 


SENDCT: 


$GET42: 


SENDAD : 


$DOAGN: 


SRTNAD 


$ENULL : 
SENDMG: 


“BYT 


JUMP TO START1 


STSTNM 
STIMES 


$SPASS 
#100000, $PASS 
(PC) + 


$DOAGN 
“teatperticcs 


. SENDMG 
$PASS ,~(SP) 
- SENULL 
a4#42,R0 
SDOAGN 


PC, (RO) 


a(PC)+ 
ee 


YTE 
-ASCIZ <1$>clo>/END PASS’ #7 


sELECTRICAL PRIORITY 


33ZERO THE TEST NUMBER 

+5 O THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 

: ::DON*T ALLOW A NEG. NUMBER 


ss VES 
7 zRESTORE COUNTER 


TYPE ‘END PASS #°' 
ISAVE SPASS FOR TYPEOUT 
2260 TYPE~-DEC IMAL ryetty WITH SIGN 


7 RETURN 
sNULL CHARACTER STRING 


BUI 


: SUBROUTINE TO CLEAR ALL UBE REG 


BU 
or @BERE CLEAR ERR 


CLRREG: 


OR CONDITIONS 
CLEAR BECR2 REG 
7CLEAR BECR1 REG, EXCEPT RDY 
;CLEAR BEBA REG 
[CLEAR BECC REG 
CLEAR BEBD REG 


RTS RETURN 
BIULL 
; SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA 
BU 
RCATCH: MOV R5,~-(SP) 


;SAVE R5 ON STACK 


SEQ 0063 


an 


oy UNIBUS EXER MOD 
END OF 


PASS ROUTINE 


2327 016226 
2328 016232 
2329 016234 


2345 016266 
2346 016270 
2347 016274 
2348 
2349 
2350 
2351 
2352 016276 
2353 016302 
2354 016304 
2355 016310 
2356 016314 
2357 
2358 


2359 

2360 016316 
2361 016322 
2362 016324 
2363 016326 
364 332 


016705 
005725 
010577 
005015 
012605 
000207 


MACRO M1111 


164300 
164272 


164244 
000200 
000001 


164230 


164222 
000002 


162702 


000060 
000174 
000176 


000060 
000062 


000174 


000200 
000202 


001000 


000137 000200 
002632 000202 
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MOV INTVEC.R5 
TST(R5)+ 

MOV RS, a@INTVEC 
CLR (R5) 

MOV (SP), R5 
RTS PC 


SEQ 0064 


;GET INT. + She 

>CALC. INTVEC+2 

;PUT INTVECSS IN INTVEC 
:PUT HALT IN INTVEC#2 
SRESTORE R5 


ee ae aca ae ale ae Bag Tet ee rere 


RDY: 
23: 


1$: 


CLR R5 
INC R5 
TSTB @BECR1 
BMI 1$ 
BIT #200,R5 
2s 
#1,R4 
PC 


TSET R4=1 
TURN 


; SUBROUTINE TO CHECK IF RDY BIT S 
SLL IUITA TAY 


UPDATE COUNT 

;SEE IF RDY SET 

[BRANCH IF SET 

WAITED . i. MICROSECS? 

CONTINUE TO LOOK FOR RDY IF RS NOT =128 
TO INDICATE ERROR 


BU 
; SUBROUTINE TO DISREGARD UBE INTERRUPTS 
SSITIITILITITTATITATTA TAIT TATA ATTA TATA 
INT: MOV INT INTVEC AND 


TST (R5)+ 
MOV R5, we 
MOV RS) 


° 


T 
:CALC. INTVEC+2 
[PUT ADDRESS OF NEXT LOC IN THIS ONE 
;PUT AN RTI IN INTVEC+2 


S 
Bs capt i scsanenia tence reabumataecnntonianians tose ote 


2 SUBRCST INE TO RESTORE VECTOR AREA 
RVEC: MOV , 3 
CLR R4 
1$: MOV -(R5),(R4)+ 
CMP #60,R4 
BNE 
MOV ~(R5), a#174 
MOV ~(R5), @4176 
MOV #60, R4 
MOV #62,R5 
2$: MOV R5,(R4)+ 
CLR(R4)+ 
CMP (R5)+,(R5)+ 
CMP #174, 
BNE 2$ : 
MOV #200, R4 
MOV 202, R5 
3$: MOV 5. (R4)+ 
CLR (R4)+ 
CMP (R5)+, (R5)+ 
“a £1000, R4 


BN’ 3 

MOV #137,a4200 
MOV #START ,a#202 
RTS PC 


AND 176 FROM STACK AREA AND PUT TRAP CATCHER I 


0-56, 174, 
Li LLL LALLA 


T AREA WHERE VECTOR STORED 
;SET R4 =TO FIRST LOC 
SRESTORE VECTORS 


TAT E “4 OF AREA? 
BRANCH IF NO 
SRESTORE SOFTWARE SWR 


[SET R4 FOR FIRST TRAP CATCHER 


SET RS=TO FIRST TRAP CATCHER ADDRESS 
:PUT ADDRESS OF gy LOC IN THIS ONE 
[PUT HALT a NEXT LOC 

INC _R5 BY 


ZAT END ‘4 * VECTOR AREA? 
zAS ABOVE, PUT TRAP CATCHER IN AREA 200-776 


sRESTORE JMP @ASTART TO LOC 200 
* RETURN 


aa 
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END OF PASS ROUTINE 


2384 
2385 


2386 
387 016432 


2390 016446 
6452 
2391 016454 


032777 
001101 


000416 
013746 


020000 


027703 
162476 


030026 
162450 


040000 


162371 
162375 
001000 
162350 


162333 
162426 


004000 


162306 


162532 


162472 


000004 


162361 
162406 
162344 


162354 
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SU UUUUUUUUUUUUUUU 
: SUBROUTINE TO TYPE PC OF ERROR MESSAGE 
TEER GGG ON gh LLL g ALS pete 


TERRPC: BIT #SW13, 


BNE 1$ 
TYPE ,MSG15 
MO SERRPC ,~(SP) 


corn i wea TYPOUTS? 
PC OF ERROR MSG WAS: 


V :;SAVE SERRPC FOR TYPEOUT 
TYPOC 3:60 earn unt ASCIICALL DIGITS) 
TYPE -MSG17 TEST NUMBER 
V STSTNM, -(SP) :SAVE $TSTNM FOR. TYPEOUT 
TYPOS :G0 TYPE -OCTAL ASCII 
BYTE 2 STYPE 2 DIGITS 
-BYTE 0 ; SUPPRESS LEADING ZEROS 
1$: RTS PC 


-SBTTL SCOPE HANDLER ROUTINE 


FR RRR ORCC IOI IOI IORI AIO IAA IASI SISSAIAI SII AISI SSIS ASAI IA AAAI AA. 

SR THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
4 OOP ON TEST 


+ *SW14= L TE 

7*SW11=1 INHIBIT ITERATIONS 

7 *SWO9=1 LOOP ON ERROR 

7 *CALL 

* COPE 3: SCOPE=IOT 

$SSCOPE: 

1$: BIT #B1T14,aSWR ;LOOP ON PPESENT TEST? 

BNE SOVER YES IF SW14=1 

;ARAAASTART OF CODE FOR THE XOR TESTERMAWAs 

$XTSTR: BR 6$ 7 IF RUNNING ON THE “XOR'* oe CHANGE 
i ;THIS INSTRUCTION TO A ‘NOP*’ (NOP=240) 


MOV @FERRVEC ,-(SP) 
MOV #5$, a#ERRVEC 
a#177060 


2 SAVE THE adhe OF THE ERROR VECTOR 
:3SET FOR _TIMEOU 


TST TIME OUT ON XOR? 
MOV (SP) +, @#ERRVEC : ZRESTORE THE a iat 
BR $SVLAD O TO THE NEXT TEST 


5$: CMP (SP)+, (SP) + 
MOV aa + @#ERRVEC 


7:CLEAR THE STACK AFTER A TIME OUT 
2 ¢RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


BR 
63%: ;44H4HAEND OF coe FOR THE XOR’ fESTeRmanne 
2$: B SERFLG 


:7HAS AN ERROR OCCURRED? 


3$ :BR IF _NO 
‘ay SERMAX , SERFLG MAX. ERRORS FOR THIS TEST OCCURRED? 
BIT #B1T09,aSwWR ;;LOOP ON ERROR? 
BEQ 6 ::BR_IF NO 
7$: oy + aaa ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG ::ZERO THE ERROR FLAG 
CLR STIMES 2: CLEAR THE NUMBER OF | SERA LOS TO MAKE 
BR 1$ ESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR 22 INMIBIT ITERATIONS? 
BNE 1$ 7:BR IF YES 
TST $PASS i:z1F FIRST PASS OF PROGRAM 


SEQ 0065 





an 
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SCOPE HANDLER ROUTINE 


016720 


016722 
105267 


016716 
022737 
001001 


162304 
162376 


165553 


162207 


162150 


001000 


162100 
162770 


162162 
016136 


162276 


162266 1$: 
162356 MOV 
SSVLAD: 


162243 
162262 SOVER: 


RTI 
CNT: 10 
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1$ 

$SICNT 
$TIMES,SICNT 
SOVER 


#1,$1CNT 

SMXCNT .STIMES 
TSTNM 

(SP) , $LPADR 


#1 , SERMAX oe 
STSTNM,@DISPLAY ;; 


SLPADR, (SP) 


$MX ° 
-SBTTL ERROR HANDLER ROUTINE 


MASA AAAAAALALAL ALLA EAASL SSSA RSE A AAAS SSAA RRA REARS ASR RAR R DOSS 


SRTHIS ROUTINE WILL yresy THE ERROR FLAG AND THE ERROR COUNT, 


>*SAVE THE ERROR ITEM 


;*AND GO TO SERRTYP ON ERR 
>*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
HALT ON ERROR 


INHIBIT ERROR TYPEQUTS 


7*SW15=1 
i wut 3=1 
*SW10=1 
: *SWO9=1 
7*CALL 


. 
° 


SERROR: 
7$: 


000042 


BELL ON ERROR 
LOOP ON ERROR 


N 3; ERROR= 


SERFLG 
7$ 


$TSTNM,@DISPLAY 
> bani 


, SBELL 
SERTTL 

(SP) , SERRPC 
#2, SERRPC 
@SERRPC ,SITEMB 
#B1T13,aSWR 
20$ 
PC,SERRTYP 
-$CRLF 

a@SwWR 

3$ 
#B1T09,aSWR 
$LPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 
MSENDAD , 0442 
6$ 


INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
? CHECK THE NUMBER OF ITERATIONS MADE 
7BR_ IF MORE ITERATION REQUIRED 
3 UREINITIALIZE THE ITERATION COUNTER 
NUMBER I — TO DO 


NUMBER 
:sFUDGE RETURN ADDRESS 
et hae PS 
- NUMBER OF ITERATIONS 


—— THE ADDRESS OF THE ERROR CALL 


EMT AND N=ERROR ITEM NUMBER 


::SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 
*=DISPLAY TEST NUMBER AND ERROR FLAG 
3 3BELL ON ER ROR? 
< TRING BELL 
COUNT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 
::STRIP AND SAVE THE ERROR ITEM CODE 
+ SKIP TYPEOUT | IF SET 


33SKIP_TYPEOUTS 
::G0 TO USER ERROR ROUTINE 


HALT ON ERROR 
SESKIP IF CONT INUE 
; HALT ON ERROR! 
+ A ae SWITCH SET? 


>:FUDGE RETURN FOR LOOPING 
7:CHECK FOR AN ESCAPE ADDRESS 


7;BR IF NONE 

37FUDGE RETURN ADDRESS FOR ESCAPE 
;z;ACT-11 AUTO-ACCEPT? 

° 9 CH IF NO 





an 
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ERROR HANDLER ROUTINE SEQ 0067 
017064 000000 HALT sc YES 
017066 6$: 
017066 000002 RTI : ;RETURN 
2400 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


DES EISIISI IOI IOISIOIIOIISIIIOIOIOIOIIIDIOISIOIOIOISIIDIIOIIOIIDIIOIIOIIOIIOIIDIIIDIIDIODINIIUII IIS 

SSTHIS ROUTINE USES THE "‘ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ ($ERRTB), 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


017070 SERRTYP: 
017070 104401 001245 TYPE ,$CRLF z:""CARRIAGE RETURN’ & ‘LINE FEED"' 
017074 010046 MOV RO, -(SP) SZ SAVE R 
017076 005000 CLR RO *:PICKUP THE ITEM INDEX 
017100 153700 001146 BISB  a#$ITEMB,RO 
017104 .001004 BNE 1$ :z1F ITEM NUMBER IS ZERO, JUST 

STYPE THE PC OF THE ERROR 
017106 016746 162036 MOV SERRPC,-(SP) SAVE SERRPC FOR TYPEOUT 

TERROR ADDRESS 
017112 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
017114 000425 BR 6$ *GET OUT 
017116 005300 1$: DEC RO > ADJUST THE INDEX SO THAT IT WILL 
017120 006300 ASL RO i: WORK FOR THE ERROR TABLE 
017122 006300 ASL RO 
017124 006300 ASL RO 
017126 062700 001250 ADD ASERRTB,RO ::FORM TABLE POINTER 
017132 012067 000004 MOV (RO) +,2$ [=PICKUP ‘ERROR MESSAGE’' POINTER 
017135 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
017140 104401 TYPE i: TYPE THE "ERROR MESSAGE" 
017142 000000 2s: .WORD 0 "ERROR MESSAGE'' POINTER GOES HERE 
017144 104401 001245 TYPE  ,$CRLF S CARRIAGE RETURN’ & "LINE FEED" 
017150 012067 000004 3$: MOV (RO) +,4$ +: PICKUP DATA LEADER’ POINTER 
017154 001404 BEQ 5$ ::SKIP TYPEOUT _IF 
017156 104401 TYPE TYPE THE ‘DATA HEADER’ 
017160 000000 4$: .WORD 0 zz" DATA HEADER'’ POINTER GOES HERE 
017162 104401 001245 TYPE , $CRLF Z:''CARRIAGE RETURN'' & ‘LINE FEED" 
017166 011000 5$: MOV (RO) ,RO ; :PICKUP "DATA TABLE'’ POINTER 
017170 001004 BNE 7$ 7GO TYPE THE DAT 
017172 012600 6$: MOV (SP) +,RO :=RESTORE RO 
017174 104401 001245 TYPE  ,$CRLF i 3 CARRIAGE RETURN'' & ‘LINE FEED"' 
017200 000207 RTS PC + RETURN 
017202 7$: 
017202 013046 MOV a(RO)+,-(SP) ::SAVE a(RO)+ FOR TYPEOUT 
017204 104402 TYPOC £260 TYPE=-OCTAL ASCII CALL DIGITS) 
017206 005710 TST (RO) ‘1S THERE ANOTHER NUMBER? 
017210 001770 BEQ 6$ *:BR IF NO 
017212 104401 017220 TYPE 8$ “TYPE TWO(2) SPACES 
017216 000771 BR 7$ +: LOOP 
017220 040 040 000 8$: -ASCIZ a, *:TWO(2) SPACES 
2401 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DISS AISIOIS IOI IOIDISISIOIOIIIDIOIIOIOIOIDIOIOIOIUIOIUIOIIIOIIOI IOI TOI IO TOI IDI TSI FI TSI TEI III IE 
;*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 





3n 





CZ7KUBCO UNIBUS 
CONVERT BINARY 


017224 


017432 


EXER 


MOD MACRO M1111 
TO DECIMAL AND TYPE R 


020200 
000020 


000055 000001 


017440 
006040 


017430 


177777 


000010 


177777 +=177776 


017440 
000002 000004 
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OUT INE 


s*REPLACED WITH SPACES. 
s*CALL: 


** 
’ 
*& 
° 


$TYPDS: 


7$: 


8$: 


9$: 


$DTBL: 


MOV 
TYPDS 


NUM ,=(SP) 


RO,-(SP) 


5~ (SP) 
#20200,-(SP) 
20(SP) °R5 

1$ 

R5 

#*~,1(SP) 


R 
#SDBLK,R3 
#' ,(R3)+ 


R2 
eae 


(SP) 


(SP) + 

9$ 

-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, $DBLK 
2(SP) ,4(SP) 
(SP)+, (SP) 


;Z;PUT THE BINARY NUMBER ON THE STACK 
3;GO TO THE ROUTINE 


;7;PUSH RO ON STACK 


is F TS POS. 
7zMAKE THE BINARY NUMBER POS. 
7 sMAKE THE ASCII NUMBER NEG. 
2 ZERO THE CONSTANTS INDEX 
UP THE OUTPUT POINTER 
TISET THE FIRST —— TO A BLANK 


53 ONSTANT 

:3FORM THIS BCD DIGIT 

;;BR IF DONE 

T:INCREASE THE BCD DIGIT BY 1 


3zADD BACK THE CONSTANT 
3:CHECK_IF BCD DIGIT=0 
23 FALL THROUGH IF 0 

STILL DOING LEADING 0°S? 
: BR IF YES 

;MSD? 


iF NO 
>:YES--SET THE SIGN 
2 MAKE THE BCD DIGIT ASCII 
sMAKE_IT A SPACE IF NOT ALREADY A DIG 
7:PUT THIS CHARACTER IN THE OUTPUT BUF 
:3JUST INCREMENT ING 
3. OT bo THE TABLE INDEX 
DO THE NEXT DIGIT 


IT 
FER 


: TO ASCII 

$ WAS THE LSD THE FIRST NON-ZERO? 
:BR_IF NO 

::YES~~SET i Hy TYPING 


3 POP STACK INTO R1 
:POP — INTO RO 
>ZNOW TYPE THE NUMBER 

;zADJUST THE STACK 


7-RETURN TO USER 


SEQ 0068 


3A 


CZKUBCO UNIBUS 
CONVERT BINARY 


017434 


017450 


017550 
017554 
017560 
017562 
017566 
017572 


017574 


EXER MOD MACRO M1111 


TO DECIMAL AND TYPE ROUTINE 
000144 100. 
000012 10. 
S$DBLK: .BLKW 4 
-SBTTL TYPE ROUTINE 
:*THE ROUTINE WILL INSERT A NUMBER 
3; *NOTE1: 
: *NOTE2: 
 *NOTE3: 
72 
3*CALL: 
7*1) USING A TRAP INSTRUCTION 
:* TYPE -MESADR 
>*OR 
* TYPE 
* ME SADR 
* 
105767 161535 $TYPE TSTB $TPFLG 
100002 BPL 1$ 
000000 HALT 
000407 BR 3$ 
010046 1$: MOV RO,-(SP) 
017600 000002 MOV a2(SP),RO 
112046 2s: MOVB (RO) +,-(SP) 
1005 BNE 4$ 
005726 TST (SP) + 
012600 60$: MOV (SP) +,RO 
062716 000002 3$: “ #2, (SP) 
122716 000011 4$: C MHT , (SP) 
143 BEQ 8$ 
4 000200 a ACRLF , (SP) 
005726 TST (SP)+ 
104401 TYPE 
001245 $CRLF 
105067 000200 CLRB SCHARCNT 
000755 BR 2$ 
004767 000056 5$: JSR PC, $TYPEC 
126726 161442 6$: CMPB SFILLC,(SP)+ 
001350 BNE 2$ 
016746 161432 MOV $SNULL ,- (SP) 
105366 000001 7$: DECB 1(SP) 
002770 BLT 6$ 
767 000032 JSR PC, $TYPEC 
105367 000142 DECB $SCHARCNT 
000770 7$ 
HORIZONTAL TAB PROCESSOR 
112716 000040 8$: MOVB #* ,(SP) 
004767 000014 : JSR PC, $TYPEC 
132767 000007 000122 BITB #7, $CHARCNT 
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MmAARRARAAAAAALAAALASALAASLALASASASASAR SSSA RRA RASA AREAS SARA AAAS DS SD 


“ RROUT INE TO TYPE ASCIZ MESSAGE. eg MUST TERMINATE WITH A 0 hit 


L_CHARACTERS AFTER A LINE 


OF FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


;zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3731S THERE A TERMINAL ? 
:7BR IF YES 
ig IF NO TERMINAL 
SAVE RO 
7 ¢ GET ADDRESS OF ASCIZ STRING 


ee RM 

7231F TERMINATOR POP IT OFF THE STACK 
: RESTORE RO 

: :ADJUST RETURN PC 

7 RETURN 

7 7BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 


:zPOP <CR><LF> EQUIV 
zz TYPE A CR AND LF 


7:CLEAR CHARACTER COUNT 


sige 


ED? 
IF NO--GO POP THE NULL OFF OF STACK 
:60 TYPE A NULL 
2D0 NOT COUNT AS A COUNT 
; =LOOP 


ios oy TAB WITH SPACE 
i: TYPE A SPACE 
‘BRANCH IF NOT AT 
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TYPE ROUTINE SEG 0070 
017612 001372 BNE 9$ : TAB STOP 
017614 005726 TST (SP) + ::POP SPACE OFF STACK 
017616 000724 BR 2$ GET NEXT CHARACTER 
017620 105777 161356 $TYPEC: TSTB a$TPs Z:WAIT UNTIL PRINTER IS READY 
017624 100375 BPL $TYPEC 
017626 116677 000002 161350 MOVB 2(SP) ,a$1PB ;;LOAD CHAR TO BE i: INTO DATA REG. 
017634 105777 161336 TSTB a$TKS 7SEE IF att te i LKING. 
017640 100021 BPL 2$ 3 BRANCH IF IT_ ISN'T 
017642 017746 161332 MOV @$TKB,-(SP) TIPUSH CHARACTER ONTO STACK. 
017646 042716 177600 BIC mi77660, bie ::BIT CLEAR TOP "s AND PARITY BIT. 
017652 022726 000023 CMP #23, ( 37SEE IF THIS ISA 
017656 001012 BNE 2$ BRANCH TO CONTINUE IF IT ISN'T. 
017660 105777 161312 3$: TSTB a$TKS ;sWAIT FOR ANOTHER INPUT. 
017664 100375 BPL 3$ ; ;BRANCH BACK IF NOT READY. 
017666 017746 161306 MOV @$TKB,-(SP) ;sPUSH NEXT CHARACTER ON STACK. 
017672 042716 177600 BIC #177600, (SP) ;;BIT CLEAR TOP BYTE AND PARITY BIT. 
017676 022726 000021 CMP #21,(SP5+ 2éSEE IF THIS IS A “Q. 
017702 001366 BNE 3$ BRANCH BACK FOR MORE WAIT IF NOT. 
017704 122766 000015 000002 2$: CMPB #CR,2(SP) :1S re ye A CARRIAGE RETURN? 
017712 001003 BNE 1$ ; ;BRANCH IF NO 
017714 105067 000014 CLRB SCHARCNT :EYESU=CLEAR CHARACTER COUNT 
017720 000406 BR STYPEX sEXIT 
017722 122766 000012 000002 18: CMPB ALF ,2(SP) ::1S CHARACTER A LINE FEED? 
017730 001402 BEQ STYPEX ; ;BRANCH IF YES 
017732 105227 INCB (PC)+ ;;COUNT THE CHARACTER 
017734 000000 $CHARCNT:.WORD 0 ;sCHARACTER COUNT STORAGE 
017736 000207 $TYPEX: RTS PC 

2403 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DIOGO REI IISISIOISIOIDIOISIOIDIDIDIDIOIIISIIOIOIOIOIOIOIIOIOIIOI II ISI TOI TT I TST I TOT TT TI TOIT 
>*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

= HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*CAL 


:* MOV NUM , = (SP) 7; NUMBER TO BE TYPED 

7* TYPOS CALL FOR TYPEOUT 

i -BYTE N ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
s* BYTE A ::M=1 OR A." 

.* =TYPE LEADING ZEROS 

ed ye SUPPRESS LEADING ZEROS 


+ *$TYPON=---ENTER FSRE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
**$TYPOS OR $TYPOC 


7*CALL: 

:* MOV NUM, -( SP) 7 NUMBER TO BE TYPED 

: TYPON 37CALL FOR TYPEOUT 

{$1 YPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

> *CALL 

i* MOV NUM, - (SP) :NUMBER TO BE TYPED 

is TYPOC SO CALL FOR TYPEOUT 
017740 017646 000000 $TYPOS: MOV a(SP) ,-(SP) :czPICKUP THE MODE - 
017744 116667 000001 000211 MOVB 1(SP), "SOF ILL + sLOAD ZERO FILL SWITCH 
017752 112667 000207 MOVB (SP)+,$OMODF+1 ;;NUMBER OF DIGITS TO TYPE 
017756 062716 000002 ADD #2, (SP) + S ADJUST RETURN ADDRESS 


8A 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0071 

017762 000406 $TYPON 

017764 112767 000001 000171 $TYPOC: MOVB #1,S$0F ILL 3SET THE ZERG FILL SWITCH 

017772 112767 000006 000165 #6, SOMODE +1 £3561 FOR SIX(6) DIGITS 

0 112767 000005 000154 $TYPON: MOVB #5,S0CNT ;SET THE ITERATION COUNT 

02 010346 MOV R3,-(SP) SSAVE R3 

020010 010446 MOV R4,-(SP) 7SAVE R4 

020012 010546 MOV R5,-(SP) 77 SAVE RS 

020014 116704 000145 MOVB SOMODE +1 ,R4 :;GET THE NUMBER OF DIGITS TO TYPE 

20020 005404 NEG R4 

020022 704 ADD #6,R4 7; SUBTRACT IT FOR MAX. ALLOWED 

020026 110467 000132 MOVB R4, SOMODE s SAVE IT FOR USE 

020032 116704 000125 MOVB SOF ILL.R4 e3GeT THE ZERO FILL SWiTCH 

020036 6605 000012 MOV 12(SP), *R5 7zPiCKUP THE INPUT NUMBER 

020042 005003 CLR R3 7:CLEAR THE OUTPUT WORD 

020044 006105 1$ ROL R5 ; ¢ROTATE MSB INTO °C 

20046 0004 BR 3$ :GO DO MSB 

020050 006105 2s ROL R5 + = FORM THIS DIGIT 

020052 006105 ROL RS 

020054 00610 ROL RS 

020056 010503 MOV R5,R3 

020060 10 3$ ROL 3:GET LSB OF THIS DIGIT 

020062 105367 000076 DECB SOMODE 3s TYPE THIS DIGIT? 

020066 100016 BPL 7 ;BR IF NO 

020070 042703 177770 BIC #177770,R3 GET RID OF JUNK 

020074 001002 BNE 4$ 7 TEST FOR O 

020076 005704 TST RS >; SUPPRESS THIS 0? 

20100 001403 BEQ 5$ :¢BR IF YES 

020102 5204 4$ INC R4 ;7DON'T SUPPRESS ANYMORE 0°S 

020104 052703 000060 BIS #'°0,R3 sMAKE THIS DIGIT ASCII 

020110 052703 000040 5$ BIS _ $ IMAKE astht he NOT ALREADY 

020114 110367 000040 MOVB R3,8$ 77 SAVE FOR TYPING 

020120 104401 020160 TYPE 8 37GO TYPE THIS DIGIT 

020124 105367 7$ DECB SOCNT ;; COUNT BY 1 

20130 3347 BGT 2s :7;BR IF MORE TO DO 

020132 002402 BLT 6$ 77BR IF DONE 

020134 005204 INC R4 37 INSURE LAST DIGIT ISN'T A BLANK 

020136 000744 BR 2$ 3:GO DO THE LAST DIGIT 

020140 012605 6$: MOV (SP)+,R5 7 RESTORE R5 

020142 2604 MOV (SP)+,R4 SRESTORE R4 

020144 012603 MOV (SP)+,R3 Shige & R3 

020146 016666 000002 000004 MOV 2(SP),4(SP) :SET THE STACK FOR RETURNING 

020154 012616 MOV (SP)+, (SP) 

020156 RTI 7 ZRETURN 

020160 000 8$: -BYTE O > STORAGE FOR ASCII DIGIT 

020161 000 -BYTE 0 72 TERMINATOR FOR TYPE ROUTINE 

020162 000 SOCNT: .BYTE 0 ;,OCTAL DIGIT Ss 

020163 000 SOFILL: .BYTE 9 32ZERO FILL SwITC 

020164 SOMODE: .WORD 0 > ;NUMBER OF DIGITS TO TYPE 

2404 -SBTTL TRAP DECODER 

J PEAR RAE AERA ARERR AER ERE EA RRA ER EH 
Z*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “‘TRAP’’ INSTRUCTION 
<*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT wILt. 
:*GO TO THAT ROUTINE. 

020166 010046 $TRAP: MOV RO,-(SP) 7 SAVE RO 





CZKUBCO 


UNIBUS 


TRAP DECODER 


2405 


020170 


020210 
020212 
020220 


020222 


EXER MOD MACRO M1111 


020210 
017450 
017764 
017740 


020000 
017224 


012737 
012737 


000002 


020222 


000004 


020376 
000340 


160700 
000104 
020310 


020376 
060 


000002 


000024 
000026 


000024 


000024 


26-SEP-79 10:03 PAGE 69-14 
SEQ 0072 


MOV 2(SP) ,RO 2iGET TRAP ADDRESS 

TST -(RO) KUP BY 2 

MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
ASL RO POSITION FOR INDEXING 
MOV STRPAD(RO),RO 3: INDEX TC TABLE 

RTS RO 3:G0 TO ROUTINE 


33 THIS IS USE TO HANDLE THE ‘‘GETPRI’’ MACRO 


$TRAP2: MOV (SP) ,=(SP) ;sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7sMOVE THE PSwW DOWN 
RT] 7 sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE en ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘'TRAP’’ INSTRUCTION 


; ROUT INE 
$TRPAD: .WORD $TRAP2 
$TYPE ::CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP+2(704402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


-SBTTL POWER DOWN AND UP ROUTINES 


DIDI AIE ISIS IUIISIISISISIDIOISIOISIOIOIDIDIOIIOIIOIIOITIOI IOI IOI IOI IOI IOI IOI TOI TOR TOI TOTTORI TORSO 
;POWER DOWN ROUTINE 
SPWRDN: MOV MSILLUP,@APWRVEC ;;SET FOR FAST UP 

MOV #340, a4PWRVEC+2 ;:PRIO:7 


MOV RO,-(SP) :zPUSH RO ON STACK 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV R2,-(SP) 7 PUSH R2 ON STACK 
MOV R3,-(SP) 7 PUSH R3 ON STACK 
MOV R4,-(SP) 72PUSH R4 ON STACK 
MOV R5,-(SP) : PUSH RS ON STACK 
MOV @SWR ,- (SP) 77PUSH @SWR ON STACK 
MOV SP, $SAVR6 Zi SAVE SP 

ge #$PWRUP , @APWRVEC 2: SET UP VECTOR 

BR 72 7 HANG UP 


DUA IOISISISISISISIIOIIOIOIIIOIIIDIOIIIOIIIOIIOISIDIDIIOIIDIOI TIO IOI DIDI IIS ISI IIIT TIS 
:POWER UP ROUTINE 
$PWRUP: MOV #$ILLUP, AAPWRVEC a FAST DOWN 


MOV $SAVR6, SP 32GET 

CLR $SAVR6 ;zWAIT LOOP FOR THE TTY 
1$: INC SSAVR6 ;zWAIT FOR THE INC 

BNE 1$ te WORD 

MOV (SP)+,aSWR 7:;POP STACK INTO @SwR 

MOV (SP)+,R5 ::POP STACK INTO R5 


MOV (SP)+,R4 72POP STACK INTO R4& 


™N 


CZKUBCO UNIBUS EXE 
POWER DOWN AND UP 


020567 
020572 


MWNMVO——]NWMK ERVIN = WK 0] —WkO= 
OWNS OHOOCONN & SONOANNAWOUN 


R MOD MACRO M1117 
INES 


020236 000024 
000340 000026 


-OoO—-—- +] = O00" O 
Ns—OW-- FO 
WO NWOSNO—f 


104 





26-SEP-79 10:03 PAGE 69-15 


SEQ 0073 
MOV (SP)+,R3 33POP STACK INTO R3 
MOV (SP)+,R2 7zPOP STACK INTO R2 
MOV (SP)+,R1 ;;POP STACK INTO R1 
MOV (SP) +,RO ;-POP_STACK INTO R 
MOV MSPWRDN,@APWRVEC ;;SET UP THE POWER DOWN VECTOR 
MOV #340, Q@APWRVEC+2 ; ;PRIO:7 
TYPE ;REPORT THE POWER FAILURE 
SPWRMG : wn SPOWER 7:POWER FAIL MESSAGE POINTER 
$SILLUP: HALT 32THE POWER UP SEQUENCE WAS STARTED 
BR “2 33; BEFORE THE POWER DOWN WAS COMPLETE 


$SAVR6: 0 7¢PUT THE SP HERE 
SPOWER: .ASCIZ <15><12>' POWER" 


-EVEN 


SF RRAERAAEARAEKERAEEAEREERERRERAKEAE ARERR ARERRARRAERAEREERERERRRRAERREERR RH 
#1 PARR RSSAASAASLARALASALASARARASESAARSERA SERA RA RRR RR RRRRRR RRR ARRAS SS DDS 


MSG1:  .ASCIZ<15><12>/EMAP: / 


MSG2: -ASCI1<15><12>/ALL EXERCISORS TESTED/<15><12> 


-ASCII/ NOTE:TO TEST PASSING OF GRANTS FOR THE LAST UBE/<15><12> 


-ASCII/ IT SHOULD BE SWAPPED WITH A UBE/<15><12> 





3R 


CZ7KUBCO UNIBUS EXER MOD MACRO M1111 
POWER DOWN AND UP ROUTINES 


020575 
020600 


Seek ae set ts nad asc sak 
NUM ES ORO WNV1O = PON & AW 


5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0 
0 
1 
1 
1 
0 
1 
1 
1 
1 


RRARR 

OM FWONRMAMMUOUWN = NO 
A—-OMF—]MWON—] 3 
OMUABWORK-WNMH NA 


&rnrnrnnr--0-- 
On 


NOooO-0o-0-oON-O 
MUNUNUINOW 


3 3 SS SS SS 1 OS SS 
a thet bate See og 
SWOWUNNWW 


oo 
n= 


26-SEP-79 10:03 PAGE 69-16 


R SKIN 


SENMHNMONM NVFENO-NMUOOONOO WOON 


-ASCIZ/ OF HIGHER ELECTRICAL PRIORITY/<15><12> 


oO SS SS = OS S| +O 


NMNMMWWNHEO —-M—NMNONMOF KF 


-ASC1Z<15><12>*BUS PARITY NOT TESTED ON 11/05 OR 11/20 MACHINES*<15><12> 


we SS = O— 


-ASCIZ/NO RESPONSE TO REG ADDRESSES OR NO DEVICE PRESENT/ 


-ASCIZ/FATAL ERROR:REG FAILED TO CLEAR/ 


=O 3—~ 4022234 
MEM —-Of-Oo-—-CO0OO 
NOK BNO HL NWS 


SEQ 0074 





an 


C7KUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-17 
POWER DOWN AND UP ROUTINES 


SEQ 0075 
021063 117 122 ~»© 072 
21046 122 105 107 
021051 060 106 101 
021054 111 114 105 
021057 104s 40—(itéi DG 
021062 117, 040—Ss«103 
021065 114 105 101 
021070 122 000 
2415 021072 = 122-—Ss«*108 107 DH2: .ASCIZ*REG ADD/REG CONTENTS * 
021075 040 + ~=101 104 
21100 106 057 ~~ 122 
021103 = 105 107 040 
021106 103 #4117 ~=&116 
021111 124 105 116 
021114 124 123640 
021117 000 
241 ~EVEN 
2417 021120 001214 001216 000000 DT2: :WORD $REGO,$REG1,0 
2418 021126 106 ~~ 101 124 EM3:  LASCIZ/FATAL ERROR:CPU DID NOT RECEIVE SSYN/ 
021131 101 114 040 
021134 105 122-122 
021137 «117,—'si—«‘W2'2?ss—i(isé«PP 
021142 = 103 Ss 120.—Ss«*125 
021145 040 104 111 
021150 106 040 116 
021153 117124040 
021156 = 122 105 103 
027161 105 111 126 
021164 105 = O40——ts«éd283 
021167 123—Sts«*202383 116 
021172 000 
2419 021173 120 103 040 DH3:  .ASCIZ/PC WAS/ 
021176 127 ~=101 123 
021201 000 
2420 -EVEN 
2421 021202 001214 000000 DT3: [WORD $REGO,0 
2422 021206 106 ~~ 101 124 £M4:  LASCIZ/FATAL ERROR:REG FAILED TO FLOAT A '1'/ 
21211 101 114 040 
021214 105 122-122 
air | ar te ? 
021222 122 105 107 
021225 040 106 ~101 
021230 = 111 114 105 
021238 4 =6 104 Ss (040—is«éd:%G 
21236 «©6117, (ss«éKs—(ié«i2G 
021241 114 117,101 
021244 12% 060 101 
021247 040 047 061 
021252 047  ~—000 
2423 021254 122-105 107 DH4: — .ASCIZ*REG ADD/DATA IS/DATA SHOULD BE* 
021257 9040 ~—S'101 104 
021262 106 057 104 
021265 101 124 101 
021270 040 #111 123 
021273 = 057—Ss«*10 101 
021276 124 101 040 
021301 123 110 = «117 


an 


Spe UNIBUS EXER MOD MACRO M1111 26-SEP-79 10.03 PAGE 69-18 


DOWN AND UP ROUTINES SEQ 0076 
021306 1252114106 
021307 = 040s—i—ai‘éi2;~Ss«d2088 
021312 000 
2424 .EVEN 
2425 021314 001214 001216 001220 DT4: :WORD $REGO,$REG1,$REG2,0 
021322 000000 
2426 021326 106 ~=—:101 124 EMS:  .ASCIZ/FATAL ERROR:REG FAILED TO FLOAT A 'O'/ 
021327 ‘101 114 040 
021332 «= 105Ss«122—~StCté«*YC 
021335 117 122 072 
021340 122 105 107 
021343 040 106 101 
021346 2=—S 111 114 105 
021351 104 040 124 
021354 117 040 106 
O57) i116—Ci(i‘ (OT 
021362 9 124.~=S(040—Ss«*101 
021365 040 047 060 
021370 047 000 
2427 021372 = 106~—Ss«101 124 EM6: — .ASCIZ/FATAL ERROR: CONTROL REG HELD WRONG DATA/ 
021375 = 101 114 040 
021400 105 122 ~~ 122 
021408 117 122 #072 
21406 103 117 #116 
021411 124 122 117 
021414 114 040 122 
021417, «105. =Ss«107—Ss«0400 
021422 110 105 114 
021425 106 040 127 
02143 122 117 116 
021433 107 040 104 
1436 =. 101 124 101 
021441 000 
2428 021442 = 106 ~—Ss‘101 124 EM7:  .ASCIZ/FATAL ERROR:DUAL ADDRESSING ERROR/ 
021445 = 101 114 040 
021450 105 122 122 
021453 117 +122 #072 
021456 104 125 101 
021461 114 040 101 
021464 106 104 122 
021467 «105. ss123,—Ss«d1283 
021472 2111 116 =: 107 
021475 0460 105 122 
021500 122 117 ~ 122 
021503 000 
2429 021504 122 105 107 DH7: — .ASCIZ*REG ADD/REG ADD WERE SIMULATANEOUSLY WRITTEN* 
021507 040 101 104 i 
021512 104 057 122 
021515 105 107 040 
021520. ~=—- 101 104 104 
021523 9 040-Ss«éd127—Ssts«*2100 
021526 122 105 040 
021531 + Bae i 115 
21534 125 114 101 
021537, «124 101 116 
021542 «= 105.117, —Ss«*2125 
021545 128 114 131 


™N 


CZ7KUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-19 


POWER DOWN AND UP ROUTINES SEQ 0077 
021550 040 127 122 
021553 111 124 124 
021556 105 116 000 
2430 -EVEN 
2431 021562 001214 001216 000000 DT7: -WORD $REGO,$REG1,0 
2432 021570 105 122 122 EM8: -ASCIZ/ERROR: SETTING PB PARITY FAILED TO CAUSE CPU TO TRAP/ 
021573 117 122 072 
021576 040 123 105 
021601 124 124 111 
021604 116 107 040 
21607 120 102 040 
021612 120 101 122 
021615 111 124 131 
2162 040 106 101 
021623 111 114 105 
021626 104 040 124 
021631 117 040 103 
21634 101 125 123 
021637 105 040 103 
021642 120 125 040 
21645 124 117 040 
021650 124 122 101 
021653 120 000 
2433 021655 105 122 122 EMS: -ASC1Z/ERROR: GO BIT FAILED TO LOAD ‘'1'/ 
021660 117 122 072 
021663 040 107 117 
21666 040 102 111 
021€71 124 040 106 
021674 101 111 114 
021677 105 104 040 
021702 124 117 040 
021705 114 117 101 
021710 104 040 047 
021713 061 047 000 
2434 021716 105 122 122 EM10:  .ASCIZ/ERROR: GO BIT FAILED TO LOAD '0O'/ 
021721 117 122 072 
021724 040 107 117 
021727 040 102 111 
021732 124 040 106 
021735 101 111 114 
021740 105 104 040 
021743 124 117 040 
021746 114 117 101 
021751 104 040 047 
021754 060 047 000 
2435 021757 106 101 124 E€M11:  .ASCIZ/FATAL ERROR: GO BIT FAILED TO CLEAR/ 
021762 101 114 040 
021765 105 122 122 
021770 117 122 072 
021773 040 107 117 
021776 040 102 111 
22001 124 040 106 
22004 101 111 114 
02200 105 104 040 
022012 124 117 040 
022015 103 114 105 
022020 101 122 000 


™N 


CZKUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-20 
POWER DOWN AND UP ROUTINES SEQ 0078 


2436 022023 EM12:  .ASCIZ/FATAL ERROR: READY BIf FAILED TO SET/ 
022026 


MmMMNN—oO 
MmMrONs— 


ed ed od od wd 


RS 


SN UWS Of 


-ASCIZ/TO CLEAR BIT 10 OF BECR1/ 


-ASCIZ/ERROR: ERROR BITS IN BECR2 SET WHEN SHOULD BE CLEAR/ 


eee Pe ee meee oe ee ee LL 
O-NMNO-ONMM MWO-Aa—-rw-- oO-o- 


-ASCIZ/CONTENTS OF BECR2/ 


RSonco— Sooo aan 
SoOoNo—- COO —$—NO0 
o--— ted ed ed od 
BR->= m-0co- 


SWOOKHR MLUEN 


No 
MOrN 
oO 


-ASCIZ/FATAL ERROR: READY BIT FAILED TO CLEAR OR GO FAILED TO SET/ 


ek mek ed ek ed od ed od 
Sk=595 
-ONWU— 


2 
1 
1 
7 
2 
2 
2 
2 
5 
7 
2 
3 
6 
5 
2 
5 
7 
6 
0 
4 
2 
3 
1 
7 
5 
3 
6 
5 
2 
1 
4 
2 
2 
2 
4 
2 
0 
1 
4 
7 


_— SS 2 OS SS SS SS es 
~—O—-fOONNN—O 


022265 





an 


C7KUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-21 
POWER DOWN T 


R 
AND UP ROUTINES 


SEQ 0079 
022270 103 114 105 
022273 101 122 040 
022276 117 122 040 
22301 107 117-040 
22304 106 101 111 
22307 114 105 104 
022312 040 124 117 
022315 040 123 105 
022320 124 000 
2441 022322. 105 122 122 —M17: .ASCIZ/ERROR: UBE FAILED TO INTERRUPT/ 
022325 117 122 072 
22330 040 125 102 
022333 105 040 106 
22336 101 111 114 
022341 105 104 040 
022344 124 117-940 
22347 111 116 124 
022352 105 122 122 
022355 125 120 124 
022360 000 
2442 022361 102 122 040 DH17: .ASCIZ*BR IS / PRIORITY IS* 
022364 111 123-040 
022367 040 + 057 040 
022372 120 122 111 
022375 117 122 117 
022400 124 131 040 
022403 111 123 = 000 
2443 022406 105 122 122 €M18: .ASCIZ/ERROR: UBE INTERRUPTED WHEN PSW AT SAME PRIORITY LEVEL/ 
022411 117 122 = 072 
022414 040 125 102 
022417 105 040 111 
022422 116 124 105 
022425 122 122 125 
022430 120 124 105 
022433 104 040 127 
22436 110 105 116 
022441 040 120 123 
022444 127, 040 101 
022447 124 040 123 
022452 101 115 105 
022455 040 120 122 
022460 111 117 122 
022463 111 124 131 
22466 040 174 105 
022471 126 105 114 
022474 000 
2444 022475 125 102 105 DH18:  .ASCIZ/UBE BR WAS/ 
022500 040 102 122 
022503 040 127 101 
022506 123 000 
2445 022510 105 122 122 £M19: .ASCIZ/ERROR: UBE FALSELY INTERRUPTED AT A HIGHER LEVEL/ 
022513 117 122 072 
022516 040 125 102 
022521 105 040 106 
022524 101 114 123 
022527 105 114 131 
022532 = 040 111 116 





CZ7KUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-22 
POWER DOWN AND UP ROUTINES 


022535 


we 
AO 


g 


-ASCIZ/HIGHER LEVEL WAS/ 


— S| 
—— | 
— aed ed od wd od = 


No-o- 0O-Oo-COONO 


DOANMN SH OONHVYVIWNIN = NMWONDOSNSLOVUNNONWEMN WEN Sm 


-ASCIZ/ERROR: UBE INTERRUPTED TO WRONG VECTOR/ 


MN —Ofk-ONEN 
SMAMNONVWOAOOO 
~ —3 ond od 

NM SMM—NMNONMO-ONNY O-ONO — 


-O —-oOOnN— 


-ASCIZ/ERROR: SIMULTANEOUS GO FAILED/ 


R 
NUIABR AMM DLAQNHKUVAP—NPRNM —HLYUNN £& 


on---—— 


-2 


-ASCIZ/ERROR: NO, NO SACK BIT FALSELY SET/ 


rt te pete oriey 4 
—-9O0O0—-NON— 
ore e200 2S SS SS oe SS = CO 


RRonwWo-k 


7 
2 
7 
5 
7 
5 
7 
0 
5 
4 
5 
3 
7 
1 
5 
5 
7 
0 
4 
7 
1 


_—— © 
ou" 


-ASCIZ/ERROR: NO INT. SSYN BIT FALSELY SET/ 


o--OoO—- — 3 31 OO OP RS Ss SS 1 OO om eS SS SS SS = 1 OO 


SNM OWNS: 2—]M]—-NNO 
SANMNM MAWA-WWANRONMOS 


022776 





CZKUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-23 
POWER DOWN AND 


UP ROUTINES SEQ 0081 
023001 123 123 131 
023004 116 040 102 
023007 111 124 040 
023012 106 101 114 
023015 123 105 114 
023020 131 040 123 
023023 105 124 000 
2452 023026 105 122 122 EM24:  .ASCIZ/ERROR: DATI FAILED TO LOAD PROPER DATA/ 
023031 117 122 072 
23034 040 104 101 
023037 124 111 040 
023042 106 101 111 
23045 114 105 104 
023050 040 124 117 
023053 040 114 117 
023056 101 104 040 
2306 120 122 117 
2 120 105 122 
023067 040 104 101 
023072 124 101 000 
2453 023075 102 105 102 DH24: .ASCIZ*BEBD /MEM DATA/MEM ADD/DATA SHOULD BE IN MEM* 
023100 104 040 057 
023103 115 105 115 
23106 040 104 101 
023111 124 101 057 
023114 115 105 115 
023117 040 101 104 
023122 104 057 104 
023125 101 124 101 
023130 040 123 110 
023133 117 125 114 
231356 104 040 102 
023141 105 040 111 
023144 116 040 115 
023147 105 115 000 
2454 -EVEN 
2455 023152 001214 001216 001220 DT24: .WORD $REGO,$REG1,$REG2,$REG3.0 
023160 001222 000000 
2456 023164 104 101 124 EM25:  .ASCIZ/DATO FAILED TO LOAD PROPER DATA/ 
023167 117 040 106 
023172 101 111 114 
023175 105 104 040 
23200 124 117 040 
023203 114 117 101 
23206 104 040 120 
023211 122 117 120 
023214 105 122 040 
023217 104 101 124 
023222 101 000 
2457 023224 104 101 124 EM26:  .ASCIZ/DATIP FAILED TO LOAD PROPER DATA/ 
023227 111 120 040 
023232 106 101 111 
023235 114 105 104 
023240 040 124 117 
023243 040 114 117 
023246 101 104 040 
023251 120 122 117 


38a 






26-SEP-79 10:03 PAGE 69-24 









CZ7KUBCO UNIBUS EXER MOD MACRO M1111 
POWER NES SEQ 0082 


DOWN AND UP ROUT! 


023254 120 105 122 
023257 040 104 101 
023262 124 101 000 
2458 023265 104 101 124 EM27:  .ASCIZ/DATOB FILED TO LOAD PROPER DATA/ 
023270 117 102 040 
023273 106 111 114 
023276 105 104 040 
23301 124 117 040 
023304 114 117 101 
23307 104 040 120 
023312 122 117 120 
023315 105 122 040 
023320 104 101 124 
023323 101 000 
2459 023325 104 101 124 E—M28: .ASCIZ/DATI FAILED TO SET RDY/ 
023330 111 040 106 
023333 101 111 114 
023336 105 104 040 
023341 124 117 040 
023344 123 105 124 
23347 040 122 104 
023352 131 000 
2460 023354 104 101 124 EM29:  .ASCIZ/DATO FAILED TO SET RDV/ 
023357 117 040 106 
2336 101 111 114 
023365 105 104 040 
023370 124 117 040 
023373 123 105 124 
023376 040 122 104 
023401 131 000 
2461 023403 104 101 124 €M30:  .ASCIZ/DATIP FAILED TO SET RDY/ 
023406 111 120 040 
023411 106 101 111 
023414 114 105 104 
023417 040 124 117 
023422 040 123 105 
023425 124 040 122 
023430 104 131 000 
2462 023433 104 101 124 £M31:  .ASCIZ/DATOB FAILED TO SET RDY/ 
023436 117 102 040 
023441 106 101 111 
023444 114 105 104 
023447 040 124 117 
023452 040 123 105 
023455 124 040 122 
023460 104 131 000 
2463 023463 105 122 122 EM32: .ASCIZ/ERROR: INH. DATA SHIFT ON DATIP FAILED/ 
023466 117 122 072 
023471 040 111 116 
023474 110 056 040 
23477 104 101 124 
023502 101 049 123 
023505 110 111 106 
023510 124 040 117 
023513 116 040 104 
023516 101 124 111 
023521 120 040 106 


™~ 


et 
CZ7KUBCO UNIBUS EXER MOD MACRO M1111 26=SEP=79 10:03 PAGE 69-25 
POWER DOWN AND UP ROUTINES SEQ 0083 
023524 


101 111 114 
023527 105 104 000 
2464 023532 105 122 122 EM33:  .ASCIZ/ERROR: DATOB ON DATIP FAILED/ 
023535 117 122 072 
023540 040 104 101 
02354 124 117 102 
023546 040 117 116 
023551 040 104 101 
023554 124 111 120 
023557 040 106 101 
023562 111 114 105 
023565 104 000 
2465 023567 105 122 122 EM34: .ASCIZ/ERROR: UBE DID DAT] FROM WRONG LOCATION/ 
023572 117 122 072 
023575 040 125 102 
023600 105 040 104 
023603 111 104 040 
023606 104 107 124 
023611 111 040 106 
023614 122 117 115 ' 
023617 040 127 122 
023622 117 116 107 
023625 040 114 117 
023630 103 101 124 
023633 111 117 116 
023636 000 
2466 023637 115 105 115 DH34: = .ASCIZ/MEM LOC WANTED/ 
023642 040 114 117 
023645 103 040 127 
023650 101 116 124 
023653 105 104 000 
2467 023656 105 122 122 €M35:  .ASCIZ/ERROR: BEBA LOWER 16 BITS DID NOT COUNT BY 2/ 
023661 117 122 072 
023664 040 102 105 
23667 102 101 040 
023672 114 117 127 
023675 105 122 040 
23700 061 066 040 
023703 102 111 124 
023706 123 040 104 
023711 111 104 040 
023714 116 117 124 
023717 040 103 117 
023722 125 116 124 
023725 040 102 131 
023730 040 062 000 
2468 023733 050 122 105 DH35: .ASCIZ*(REG) /DATA SHOULD BE* 
023736 107 051 040 
023741 057 104 101 
023744 124 101 040 
023747 123 110 117 
023752 125 114 104 
023755 040 102 105 
023760 000 
2469 023761 105 122 122 €M36: .ASCIZ/ERROR: BEBA BIT A16,17 DID NOT COUNT=0/ 
023764 117 122 072 
023767 040 102 105 


an 
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3 31 OO 3 oS a 
SERS=SEZO=S 


-ASC1Z/A16,A17/ 


~ 
oO 


S 


-ASCIZ/ERROR: BEBA DID NOT COUNT BY 1/ 


— ad od ed 


MOW ——NMNon 


oo 


INTERRUPT FAILED TO UPDATE BECC TO CORRECT VALUE/ 


» eee oO 
MmMOoO—nMmM £ 


ee ed ed td od 


oy 
o-kO- CONN -o- 


-ASCIZ/ERROR: BEBA INCREMENTED WHEN IT WAS INHIBITED/ 


OM & SHS OP OP OCONN 


ke me ee 8 ed ed ed ed 
~—-ON—NwConr— 
—- = HQ 
—— = O90 RS So 


2 
2 
1 
5 
5 
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4 
? 
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4 
2 
3 
7 
5 
0 
4 
0 
2 
2 
2 
1 
6 
5 
6 
4 
0 
0 
0 
3 
6 
2 
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POWER DOWN 


AND UP ROUTINES SEQ 0085 
024241 124 105 104 
024244 000 
2474 024245 105 122 122 EMGO:  .ASCIZ/ERROR: BECC INCREMENTED WHEN IT WAS INHIBITED/ 
024250 117 122 072 
024253 040 102 105 
024256 103 103 040 
024261 111 116 103 
4264 122 105 115 
024267 105 116 124 
024272 105 104 040 
024275 127 110 105 
024300 116 040 111 
024303 124 040 127 
024306 101 123 040 
024311 111 116 110 
024314 111 102 111 
024317 124 105 104 
024322 000 
2475 024323 105 122 122 £M41:  .ASCIZ/ERROR: UBE FAILED TO INT. ON DONE/ 
024326 117 122 072 
024331 040 125 102 
024334 105 040 106 
024337 101 111 114 
024342 105 104 040 
024345 124 117 040 
024350 111 116 124 
024353 056 040 117 
024 356 116 040 104 
024 361 117 116 105 
024 364 000 
2476 024365 105 122 122 EM42:  .ASCIZ/ERROR: CCOVF NOT CLEARED BY GO/ 
024370 117 122 072 
024373 040 103 103 
024376 117 126 106 
024401 040 116 117 
024404 124 040 103 
024407 114 105 101 
024412 122 105 104 
024415 040 102 131 
024420 040 107 117 
024423 0 
2477 024424 105 122 122 £M43: .ASCIZ/ERROR: UBE DID NOT DO DATO TO PROPER # OF LOCS. (4)/ 
024427 117 122 072 , 
024432 040 125 102 
024435 105 040 104 
024440 111 104 040 
024443 116 117 124 
024446 040 104 117 
024451 040 104 101 
024454 124 117 040 
024457 124 117 040 
024462 120 122 117 
024465 120 105 122 
024470 040 043 040 
024473 117 106 040 
024476 114 117 103 
024501 123 056 040 
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POWER DOWN 


AND UP ROUTINES SEQ 0086 
024504 050 064 051 
024507 000 
2478 024510 101 104 104 DH43: .ASCIZ*ADD FROM/TO WERE WRITTEN® 
024513 040 106 122 
024516 117 115 057 
024521 124 117 040 
024524 127 105 122 
024527 105 040 127 
024532 122 111 124 
024535 124 105 116 
24540 000 
2479 024541 105 122 122 EM44: .ASCIZ/ERROR: INT. ON DONE BIT NOT CLEARED/ 
24544 117 122 072 
024547 040 111 116 
024552 124 056 040 
024555 117 116 0490 
024560 104 117 116 
024563 105 040 102 
24566 111 124 040 
024571 116 117 124 
024574 040 103 114 
024577 105 101 122 
024602 105 104 000 
2480 024605 105 122 122 EM45: .ASCIZ/ERROR: CCOVF NOT SET/ 
024610 117 122 072 
024613 040 103 103 
024616 117 126 106 
024621 040 116 117 
024624 124 040 123 
024627 105 124 000 
2481 024632 105 122 122 EM46: .ASCIZ/ERROR: DATO FROM BECC NOT DONE PROPERLY/ 
024635 117 122 072 
024640 040 104 101 
024643 124 117 040 — 
024646 106 122 117 
024651 115 040 102 
024654 105 103 103 
024657 040 116 117 
024662 124 040 104 
024665 117 116 105 
024670 040 120 122 
024673 117 120 105 
024676 122 114 131 
024701 000 
2482 024702 101 104 104 DH46: .ASCIZ*ADD /DATA /DATA SHOULD BE* 
024705 040 040 040 
024710 057 104 101 
024713 124 101 040 
024716 040 057 
024721 104 101 124 
024724 101 040 123 
024727 110 117 125 
024732 114 104 040 
024735 102 105 000 
2483 024740 105 122 122 EM47:  .ASCIZ/ERROR: UBE DID NOT DO 2 DATO FOR EACH REQUEST/ 
024743 117 122 072 
024746 040 125 102 
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POWER DOWN AND 


UP ROUTINES SEQ 0087 
024751 105 = 040s‘: 
024754 = 111 106 040 
024757 116si«ad17—s«*21:28 
024762 040 106 117 
024765 040 062 040 
024770 104 101 124 
024773 «117, —s«040St—«i08 
024776 117 122 040 
025001 105 101 103 
25006 110 040 122 
025007 105 ~— 121 125 
025012 «105 ssd123—Sts«*d1 
025015 000 
2484 025016 105 122 122 EM49: -ASCIZ/ERROR: UBE DID NOT DO 2 DATIP FOR EACH REQUEST/ 
025021 i a eg 
025024 040 125 102 
025027, 105-Ss«040—ts«*d108 
025032111 104 040 
025035 116 117 126 
25040 040 104 117 
025043 040 062 040 
025046 104 101 124 
025051 111 120 040 
025054 106 117 ~~ 122 
025057 040 105 101 
025062 103 110 040 
25065 122 105 ~~ 121 
025070 125 105 123 
025073 124 000 | 
2485 025075 105 122 122 EM51: -ASCIZ/ERROR: NPR DATO NOT DONE/ 
025100 117 122 ~»©07e 
025103 040 116 120 
251 122 040 = 104 
025111 101 im 60 
025114 O40 116 ~ #117 
025117 124. (040ts«*d:0 BE 
025122 117 116 ~~ 105 BE 
025125 000 
2486 025126 105 122 122 EMS2: -ASCIZ/ERROR: NPR DID NOT SET RDY/ BE 
025131 117, 122—Ss«O2 BE 
025134 040 116 120 BE 
025137, 122s 040s«*108 BE 
025142, 2111 104 040 BE 
025165 116 117 126 BE 
025150 040 123 105 BE 
025153 1242S (040St—«éi1'22 BE 
025156 104 131 000 | BE 
2487 025161 105 122 122 £M53:  .ASCIZ/ERROR: UBE DID NOT INT. WHEN NPR FINISHED/ BE 
025164 117 122 072 BE 
025167 0402S 125-—Ss«102 BE 
025172 105 040 104 BE 
025175 171 104 040 BE 
35900 116i(i«waTCti«*DS 
025203 = 0402S 11 116 
25206 «= 124-—Ss«5HSSC«KO 
025211 a (ee 
025214 116 040 116 
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DOWN AND UP ROUTINE 
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SEQ 0088 


-ASCIZ/ERROR: TWO LOC. WRITTEN WHEN ONE NPR AND INT. ON DONE ENABLED/ 


-ASCI1<15><12>/TESTING UBE WILL NOT INTERRUPT DURING NPR/<15><12> 


eASCIZ*IF DOES, CPU WILL GO DOWN*<15><12>*ENTERING TEST* 


-ASCIZ<15><12>/EXITING TEST/ 


<~N 


nyo 
~< 


RRBRRRRaRBaam 


BI 
Bl 
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AND UP SEQ 0089 
025470 0460 124 105 
025473 128 124 000 
2492 025476 105 122 122 EMS6: -ASCIZ/ERROR: TEST OF WRONG A LINES ERROR BIT FAILED/ 
025501 i oie 
25504 040 124 105 
025507 + 128-—Ss—«‘104-—ti(‘ié«i 
025512 +117 «= 106~—s«(040 
Rosse « Sar. fae > ite 
025520 116 107 040 
025523 ~—«-'101 040 040 
025526 329114~—Ss«O111 116 
025531 105 123 = 040 
025534 105 122 ~ 122 
een a FS 
025542 «102,—St*i«<2072'T 124 
025545 0460 106 101 
025550 111 1146 105 
025553 104 000 
2493 025555 102 105 103 EMS7:  .ASCIZ/BECR2 BIT 9 FALSELY SET/ 
025560 122 062 040 
025563 102 111 124 
255 040 071 040 
025571 106 ~—-107 114 
025574 + ef i 5 P 
025577 «131 040 123 
925602 105 124 000 
2494 025605 124 117 040 EMS8: -ASCIZ/TO INTERRUPT CPU/ 
025616 = 111 1146-124 
025613 +105 += 122,—Stsé«WMZ'22D 
025616 125 120 124 
025621 040 103 120 
025624 125 000 
2495 025626 105 122 122 EMS9: -ASCIZ/ERROR: TEST OF NSSYN ERROR BIT FAILED/ 
025631 a ae, 
025634 040 124 105 
025637 =Ss«123-—~Cti‘«‘z2K4~C*é‘«i 
2564 117-1064 
477) Se ee} Sle 
025650 =: 131 116 040 
025653 «= 105.=Ss«*d122—~St*~*é«*CT22 
025656 117 122 040 
025661 102.2111 124 
25 040 106 101 
25667 «111 114. 105 
025672 104 000 
2496 025674 124 117 040 EM60: -ASCIZ/TO SET BIT 8 OF BECR2/ 
025677 123—Cii«‘*12005'' i (ts«édG 
025702 0460 #102 #111 
025705 124 040 070 
025710 040 #117 + ~ + 106 
025713 040 102 105 
025716 103 122 062 
025721 000 
2497 025722 =: 124 117 040 ~EM61: —.ASCIZ/TO SET BIT 15 OF BECRI/ 
025725 123 105 124 
025730 040 102 ~# 111 
025733 = 124.—=Ssi(0K0—t—=<ié« ST 
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SEQ 0090 


EM62: .ASCIZ/TO CLEAR BIT 8 OF BECR2/ ~ 


EM63: -ASCIZ/FALSELY INTERRUPTED CPU/ 


EM64: -ASCIZ/ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT ERROR BITS FAILED/ 






EM65: -ASCIZ/NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET/ 
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2502 026207 
026212 
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2505 aq 


2506 026347 
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2507 02 
0 





BUS EXER MOD MACRO M1111 
AND UP ROUTINES 
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DH65: 


EM70: 


EM71: 


-ASCIZ/ WITH BECR1 


eASCIZ/WITH INT. ON DONE = 1/ 


-ASCIZ/WRONG GRANT ERROR BIT FALSELY SET/ 


-ASC1Z/TO CLEAR BIT 11 OF BECRI/ 


-ASCIZ/ERROR: TEST OF TIME DELAY AND BUS LATENCY FAILED/ 


-ASCIZ/TO SET BIT 6 OF BECR2/ 
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oa 
oO 
Ww 
_ 
~m 
La) 


026452 
026455 
2508 026456 
026461 


8 


EM72:  .ASCIZ/TO CLEAR BIT 6 OF BECR2/ 


es 
ooon 


S Suelo 

-OnNo—- 

MO NWONUIPIN NOM WS 
MEN 


ad and ond ond 
—=~—-— 


— 
BE 


-ASCIZ/ERROR: TEST OF POWER DOWN BIT FAILED/ 


rmnronrn 
SEMNMNM 


— ot 2 I 
=SP2ONzN 
=O 
Wasp eterna 
me fort 


838 


-ASCIZ/TO POWER DOWN CPU/ 


REBR 


-ASCIZ/TO POWER UP CPU/ 


16 
20 
24 
20 
05 
25 
03 
000 


-ASCIZ/TO RE POWER DOWN CPU/ 


tatatiateadt ated st Oaiaiadad ad ad ad 
—M—0O—)— —_ MINN MH NH Ww SHS )— COON 


Hm — - 4 > 4 — I 3 a SS SS SS SS YS = — 


-ASCIZ/TO SET BIT 4 OF BECR2/ 


OMUNYONONYN OCOMNNMUONNN WH SONDON 


RSS=AR 


-ASCIZ/ERROR: DCLO FAILED TO CLEAR REG/ 
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SEQ 0093 
026715 040 =: 103 114 
026720 ~=—-: 105 101 122 
026723 040 122 105 
026726 107 ~—- 000 
2515 026730 105 122 122 EM80: .ASCIZ/ERROR: DYNAMIC TEST OF UBE FAILED/ 
te | ae) 
026736 040 104 131 
026741 116 = 101 115 
026744 111 103 040 
026747 124 105 123 
026752 124 040 117 
026755 106 040 ~=125 
26760 =: 102 105 040 
026763 106 ~# 101 111 
026766 23-114 105 104 
026771 000 
2516 026772 124 117 040 +EM81: .ASCIZ/TO LOAD PROPER DATA/ 
026775 114 117-101 
027000 104 040 120 
027008 =: 122 7. te 
27006 —s«-: 105 122 040 
027011 104 101 124 
027014 101 000 
2517 027016 ~—- 105 122 122 EMB2:  .ASCIZ/ERROR: TEST OF PASSING GRANTS FAILED/ 
027021 i7- ‘a Of 
027024 040 124 105 
027027 123 124 040 
027032 117 106 940 
027035 120 101 123 
027040 ioe ua 116 
027043 107 040 107 
027046 122 101 116 
027051 124 123 040 
027054 106 101 111 
027057 («114 105 104 
027062 000 
2518 027063 105 122 122 EM83: -ASCIZ/ERROR:FALSE INTERRUPT WHEN DO RELEASE BUS IMMED./ 
027066 117 #122 ~= 072 
027071 106 101 114 
027074 123 105 040 
027077 2S s«1111 116 124 
027102 105 122 122 
027105 125 1200 124 
027110 040 + ae 2 
027113 105 116 = 040 
027116 104 117-040 
027121 122 105 114 
027124 105 101 123 
027127 42105 «=6040-~Ss«d102 
027132 125 123 040 
027135 111 115 115 
027140  —«:105 104 056 
027143 ~—-000 
2519 027144 105 122 122 £M84:  .ASCIZ/ERROR:TEST OF MULTIPLE INTERRUPTS FAILED TO SET RDY/ 
027147 2117 122 = 072 
027152 124 105 123 
027155 126 040 117 
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& 


TaAshausdtoaaak 

mr —o-—r 

NMYIN &-OONMAuMuW 
RR=5 


ee 
mwo-o- 
—ONVIONDEM KLOOSL 


-ASCIZ/UBE WITH VECTOR: / 


hbaiah abet 
OoO-NO Of 


oR= 


-ASCIZ/ AND BR AT: / 


Sa ak 8 Oa a OO a a td ot td od 
SOO QDNOF $90 WEMNODONMNO-]—hr— 
O-NVAONWOH— YW POW NAW SN 


ooo 
NSS 
NOOO 


-ASCIZ/ FALSELY INTERRUPTED WHEN/<15><12> 


—SMONO - aS a & 
ANU &LROO 


-ASCIZ/ SHOULD HAVE INTERRUPTED/<15><12> 


nmr es ROI ee 


> 
NSS 
RONNMAKROAKA NNAWMRNNN SH DOUW  NOLOVOA-w 


rary Ny + $4 
o-e SS SS So oO 
SONNM—0-]—= = 
ORONMAMGOSLO MM 


NEO SNW O00 HW SNE NOLO 


-ASC1Z2<15><12>/PASSING OF GRANTS NOT TESTED WITH ONE EXERCISOR/<15><12> 


00 
0 
1 
1 
1 
1 
1 
1 
1 
1 
0 
0 
1 
1 
1 
0 
1 
1 
1 
0 
0 
1 
1 
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+-0O 


ae en aeeehhs ht thas neath nhs hone o-e SS SS SS = 


= —]MOONW £0] Sv “ON0-N 
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POWER DOWN AND 





UP ROUT INES SEQ 0095 
027425 040 105 130 
027430 105 122 103 
027433111 123117 
02763 122 015 O12 
027441 000 
2525 027442 «= 015.——si12—S—s—«i2‘'02'.sMSG12:-- WSC 1<15><12>/IF MORE THAN ONE UBE PRESENT JUMPER W1/<15><12> 
027445 106 040 115 
027450 117 122 105 
027453 040 124 110 
027456 101 116 040 
027461 17, «116—Ss«*105 
027464 040 125 102 
027467 105 s(40——i«éi220 
027472 122 105 ~~ 123 
027475 105 116 12% 
027500 040 112 125 
027508 «= 115 ss120~—Ss«*1085 
27506 = 122iK—«éiN2'D? 
027511 061 015 ~~ O12 
2526 027514 = 128—ia120'—s'i‘ié‘iTid? .ASCIZ/SHOULD BE INSERTED IN ALL UBE EXCEPT LAST/<15><12> 
027517 125, ss114—Sss«d:0K 
027522 4040 «= 102-—S—s«'105 
027525 = 040s 116 
027530 123 105 122 
027533 = 1242s 105-104 
7536 111 116 
027541 040 101 114 
Ore - 116 «0 425 
027547 = 102-—S's«105-——s«KO 
027552 «= 105-isi«éd130—'—ts—«*21208 
027555 105 120 124 
027560 040 114 ~~ # 101 
027563 = 123,Ss«d124-—t—ti«é«iT'S 
027566 012 000 
2527 027570 015 012 124 MSG13: .ASCIZ<75><12>/TESTING UBE WITH BEDB ADDRESS: / 
027573. «= 105 si1238—Sts«éd:G 
027576 = 111 116 = 107 
027601 040 125 102 
027604 105 040 127 
27607 S111 124 110 T 
027612 040 102 105 T 
027615 104 102 040 T 
027620 ~=—-:101 104-104 T 
027623 = 122—'i(i«d10 s«*1238 T 
027626 128 072 040 T 
027631 000 T 
2528 027632 015 012 040 MSG14: .ASCIZ<15><12>/ NOTE:DISREGARD BIT 13 =1 OF BECR2/<15><12> T 
027635 040 «= 040—i(‘iéséi2C6 T 
027640 117 124 105 T 
027643 39 072—~i(i«‘2HCsi‘é‘idld T 
27646 = 123—s«d122—s«d08 T 
027651 107, Ss: 101 122 T 
027654 104 040 102 
027657111 124 040 
027662 061 063 040 
37665 +075 «= 061Ss«40 
6:7670 117 10 #0 
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POWER DOWN 





AND UP ROUTINES SEQ 0096 
027673 102,—'—i‘«‘20SSts«*i12088 
027676 122 2=S (62 Sti 
027701 012 000 | 
2529 027703 015 012 120 MSG15: .ASCIZ7<15><12>/PC OF ERROR MESSAGE WAS: / 
027706 108 040 ~&# 4117 
027711 106 040 105 
027714 122 122 ~ «117 
027717 122—i(itiHs—“(itiéizd'S 
027722 49105 «= 128—S—«*2:238 
027725 ~—-101 107-105 
027730 040 127 ~~ 101 
027735 125 O72 40 
2530 027737 015 012 040 MSG16: .ASCIZ<15><12>/ UNIBUS EXERCISER MODULE DIAGNOSTIC=-CZKUB=-C/<15><12><15><12> 
027742 © 040-'i(i‘i—C(ié‘éi 
027745 040 125 116 
027750 = 111 102.125 
027753 = 128—'s—s«(K—iti«éi120858 
027756 130 105 122 
027761 103 111 123 
7764 «=«-105-—Ss«*122~Sté*Cié<“‘«C 
027767 3115.17, «0G 
027772 320«125-—Ssi«11.——sts«i2085 
027775 040 1046 111 
030000 —s- 101 107 «116 
030003 117 «+123 124 
030006 =—.111 103 055 
030011 055 103 132 
030014 113 125 102 
030017 = «055-'i(ai‘i23:—Ct=<i«é«'S 
030022 012 015 ~=— 012 
030025 0 
2531 030026 040 040 040 MSG17: .ASCIZ/ TEST NUMBER WAS: / 
030031 040 040 040 


2532 

2533 EVEN 

2534 SASTITAETITIAAT LITT ATL LETT ATIOAT ATA ES TATA TATA 
2535 ;BUFFER WORK AREA 

2536 SATIIIITIALITAATLTALIS LAA ATA DATTA TATA TATA TAAL ATT 
2537 030062 BUFF1: .BLKW 117 


2538 000001 . END 





CZ2KUBCO UNIBUS EXER MOD MACRO M1111 26-SEP-79 10:03 PAGE 69-39 
SYMBOL TABLE 


SEQ 0097 
003172 BIT3 = 000010 EM22 022717 EM78 026670 PR? = 000340 
ACALC 003376 BIT4 = 000020 EM23 022762 EM8 021570 PS = 177776 
001126 BITS = 000040 EM24 023026 EM80 026730 PSW = = 177776 
BEBA 002522 BIT6 = 000100 EM25 023164 EM81 026772 tes 004754 
BEBD 002516 BIT? = 000200 EM26 023224 EM82 027016 PWRVEC= 000024 
002520 BIT8 = 00 EM27 023265 EM83 027063 RCATCH 016224 
BECR1 2524 BIT9 = 001000 EM28 023325 EM84 027144 RDYS 006570 
BECR2 002526 BPTVEC= 14 EM29 023354 E 021655 RESVEC= 000010 
BEGO 2534 BUFF1 030062 EM3 021126 RROR = 104000 RSTART 001100 
BERE 002530 C 003500 EM30 023403 ERRVEC= 000004 RTR 006044 
BEIBA 002542 CLRREG 016172 EM31 023433 ERR1 096620 RVEC 016316 
BE1BD 002536 CR 5 EM32 023463 ERR2 006630 R6 =%000006 
BEICC. 002540 CRDY 016246 EM33 023532 ERR3 R7 =%000007 
BEICR1 002544 CRLF = 00020 EM34 023567 ERR4 0 SCOPE = 
BEICR2 002546 003514 EM35 023656 003570 SPTR 002514 
BEIRE 002550 = GO EM36 023761 FINT1 005172 STACK = 001100 
BEIVEC 002552 DDISP = 177570 EM37 024040 FINT3 005600 START 002632 
Be 2BA 25 DH15 022205 EM38 024077 FIRST 003632 START1 
BE2BD 002554 DH17 022361 EM39 024167 HT = 000011 STKLMT= 177774 
BE2CC 002556 DH18 022475 EM4 021206 003266 STRAP 004030 
BE2CR1 002562 DH19 022571 EM4O 024245 INTVEC 002532 S 601172 
BE2CR2 DH2 021072 EM41 024323 IOTVEC= 000020 SWREG 000176 
BE 2RE DH24 023075 EM42 024365 I TRAP 04770 S = 000001 
BE2VEC 002570 DH3 021173 EM43 024424 LAST 014440 swOO = 000001 
002576 DH34 023637 EM44 024541 LAST1 014462 SwO1 = 000002 
BE3BD 002572 DH35 023733 EM45 024605 LF = 000012 SwO2 = 000004 
BE3CC 002574 DH36 024030 EM46 024632 LOOP1 003150 SwO3 = 000010 
BE3CR1 002600 DH4 021254 EM47 024740 LOOP2 003156 SwO4 = 000020 
BE3CR2 002602 DH43 024510 EM49 025016 MSG1 020414 SwOS = 000040 
2 DH46 024702 EMS 021324 MSG10 027323 SwO6 = 000100 
BE3SVEC 002606 DH65 026207 EMS1 025075 MSG11_ 027356 swO7 = 000200 
BESBA 002614 DH7 021504 EMS2 025126 MSG12 027442 SwO8 = 000400 
002610 DINT 16276 EM53 025161 MSG13. = 027570 SwO9 = 001000 
BESCC 002612 DISPLA 001174 EMS4 025233 MSG14 027632 SW1_ = 000002 
BESCR1 002616 DISPRE 000174 EMS6 025476 MSG15 027703 SW10 = 002000 , 
BE4CR2 002620 DSWR = 177570 EMS7 025555 MSG16 = =027737 SW11 = 004000 ! 
4 002622 T2 021120 EM58 025605 MSG17 =: 030026 Swi2 = 010000 
BE4VEC 002624 DT24 023152 EMS9 025626 MSG2 020425 SW13 = 020000 ,l 
BITO = 000001 DT 021202 EM6 021372 MSG3 025331 SW14 = 040000 , 
BITOO = 000001 DT4 021314 EM60 025674 MSG4 025457 Sw15 = 100000 , 
BITO1 = 000002 DT7 021562 EM61 025722 MSG5 020663 Sw2 = 000004 
BITO2 = 003532 EM62 025751 MSG7 027230 SwW3 = Q00010 
BITO3 = 000010 E 002510 EM63 026001 MSG8 027252 SW4 = = 000020 
BITO4 = 000020 EMTVEC= 000030 EM64 026031 MSG9 027267 SW5 == 000040 T. 
BITOS = 020750 EM65 026127 MTRAP 003234 SW6 = 0001 T. 
BITO6 = 000100 EM1C 021716 EM66 026226 NO 002630 SWw7 = 000200 T. 
BITO7 = 000200 EM11 021757 EM67 026254 014430 Sw8 = 000400 T 
BITO8 = EM12 022023 EM69 026316 1 014434 = 001000 T. 
BITO9 = 001000 EM14 022070 EM7 021442 PIRQ = 177772 TBITVE= 14 T. 
BIT! = EM15 022121 EM70 026347 PIRQVE= 000240 TERRPC 016432 T 
BIT10 = 002000 EM16 022227 EM71 026430 PR = 000000 TKVEC = T 
BIT11 = EM17 022322 EM72 026456 PR1 = 000040 TMAP 002512 T 
BIT12 = 010000 EM18 022406 EM73 026506 PR2 = 000100 TPVEC = 
BIT13 = 020000 EM19 022510 EM74 026553 PR3 = 000140 TRAPVE= 000034 
BiT14 = EM2 021032 EM75 026575 PR4 = 000200 TRTIVEC= 000014 
BIT15 = 100000 EM20 022612 EM76 026615 PRS = 000240 TSTA 006656 
BIT2 = EM21 022661 EM77 026642 PR6 == 000200 TSTB 014134 
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SYMBOL TABLE 


SEQ 0099 

$TKS 001176 $™N == 000041 $TRAP2 020210 $TYPE 017450 $TYPOS 017740 
STMPO 001224 $TPB 001204 $TRP = 000006 $TYPEC 017620 $xXTSTR 016502 
STMP1 001226 $TPFLG 001211 $TRPAD 020222 $TYPEX 017736 $$GET4= 000000 
STMP2 001230 $TPS 001202 STSTNM 001134 $TYPOC 017764 SOFILL 020163 
STMPS 001232 STRAP 020166 $TYPDS 017224 $TYPON 020000 
- ABS. 030104 000 

006000 001 


ERRORS DETECTED: 1 


VIRTUAL MEMORY USED: 59472 WORDS ( th PAGES) 
DYNAMIC MEMORY: 20434 WORDS ( 78 PAGES 

ELAPSED TIME: 00:05:46 

CZ7KUBCO,CZKUBCO/NL : TOC/CRF /=SP=CZ7KUBCO. SML ,CZKUBCO.PT? 


$E 
$f 
$F 
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$C 
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$i 
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CZKUBCO CREATED BY MACRO ON 26-SEP-79 AT 10:06 PAGE 1 
SYMBOL CROSS REFERENCE CREF SEQ 0100 
SYMBOL VALUE REFERENCES 
A 003172 #61-511 61-524 
ACALC 003376 #61-545 61-557 61-565 69-2075 
8 001126 59-25 #59=27 
BEBA 002522 #61-455 *61-533 *61-547 62-714 62-742 65-1037 65-1054 65-1072 65-1091 
7 65-1137 65-1161 65-1193 65-1225 65-1253 65-1259 65-1269 65-1273 65-1275 
65-1280 65~1325 65-1331 65-1338 65-1384 65-1394 65-1421 65-1484 65-1523 
65-1573 65-1619 65-1631 66-1692 66-1712 66-1715 66-1716 66-1748 66-1841 
66-1936 66-1943 66-1957 66-1958 69-2039 69-2319 
BEBD 002516 #61-453 *61-531 *61-545 61-569 61-575 61-600 62-699 62-727 62-760 
62-761 65-1042 65-1044 65-1055 65-1061 65-1076 65-1080 65-1090 65-1098 
65-1145 65-1149 65-1165 65-1169 65-1323 65-1329 65-1336 65-1390 65-1420 
. 65-1525 65-1618 69-2321 
BECC 002520 #61-454 *61-532 *61-546 65-1036 65-1053 65-1071 65-1092 65-1136 65-1162 
65-1195 65-1227 65-1250 65-1261 65-1270 65-1320 65-1326 65-1333 65-1364 
65-1366 65-1385 65-1392 65-1422 65-1485 65-1524 65-1574 65-1620 65-1632 
65-1 66-1694 66-1714 66-1747 66-1840 66-1852 66-1934 66-1944 66-1953 
66-1955 69-2040 69-2320 
BECR1 002524 #61-456 *61-534 *61-548 61-602 61-618 61-651 62-768 62-775 62-779 
62-789 62-852 62-853 62-860 62-862 62-922 62-928 62-933 62-938 
62-949 62-956 62-958 62-959 62-978 62-1006 65-1039 65-1057 65-1074 
65-1093 65-1109 65-1138 465-1163 65-1196 65-1203 65-1220 65-1229 65-1231 
65-1251 65-1262 65-1271 65-1321 65-1327 65-1334 65-1357 65-1371 65-1388 
65-1424 65-1442 65-1446 65-1486 65-1487 65-1526 65-1575 65-1621 65-1633 
65-164 65-1667 65-1670 65-1674 66-1696 66-1722 66-174 66-174 66-7752 
66-1762 66-1767 66-1774 66-1780 66-1786 66-1791 66-1810 66-1820 66-1842 
oe 1073 66-1938 66-1945 66-1963 66-1965 66-1973 66-2009 69-2041 69-2318 
BECR2 002526 #61-457 *61-535 *61-549 61-598 61-609 61-611 61-620 61-622 61-623 
62-667 62-669 62-684 62-686 62-777 62-781 62-787 62-791 62-823 
62-824 62-836 62-966 62-968 62-990 62-1005 64-1016 65-1194 65-1198 
65-1210 65-1215 65-1226 65-1260 65-1264 65-1285 65-1332 65-1387 65-1401 
65-1444 65-1447 66-1693 66-1698 66-1706 66-1713 66-1718 66-1720 66-1721 
66-1724 66-175 66-1756 66-1760 66-1769 66-1771 66-1808 66-1815 66-1833 
66-1853 66-1880 66-1916 66-1923 66-1935 66-1947 66-1952 66-1960 66-1961 
66-1972 66-1974 66-1979 66-1984 66-1985 66-1987 66-1988 69-2317 
BEGO 25 461-460 *61-537 61-577 65-1331 66-1692 66-2010 69-2140 69-2227 $ 
BERE 002530 #61-458 *61-536 *61-550 61-599 61-621 61-652 65-1214 65-1237 66-1832 $ 
66-1844 69-2316 
BE 1BA 002542 #61-463 $ 
BE 1BD 25 #61-461 61-539 61-543 69-2143 $ 
BE1CC 002540 #61-462 $ 
BE1CR1 002544 #61-464 69-2132 69-2144 69-2272 69-2281 $ 
BE 1CR2 002546 #61-465 $ 
BE 1RE 002550 #61-466 $ 
BE 1VEC 002552 461-467 69-2113 69-2114 $ 
BE 2BA 002560 #61-470 
BE 2BD 002554 #61-468 69-2102 69-2146 
2cc 002556 #61-469 
BE2CR1 002562 #61-471 69-2133 69-2147 69-2273 69-2283 
BE2CR2 002564 #61-472 
BE 2RE 002566 #61-473 
BE 2VEC 002570 #61-474 69-2116 69-2117 





C7KUBCO _ CREATED BY MACRO ON 26-SEP-79 AT 10:06 = PAGE 2 
SYMBOL CROSS REFERENCE CREF SEO 0101 
SYMBOL VALUE REFERENCES 
BF 002576 #61-477 
002572 #61-475 69-2149 
3cc_ © 002574 #61~47 
BE3CRI 2600 #61-478 69-2134 «69-2136 = 69-2150 69-2274 692276 © 692285 © -69~2287 
BESCR2 002602 #61-479 
SRE 002604 #61-480 $ 
BE 3VEC 26 #61-481 69-2119 69-2121 692122 $ 
4BA 002614 #61-484 $ 
BE4BD 002610 #61-482 69-2152 $ 
4CC_ 002612 #61-483 . $ 
BESCRI 002616 #61-485 69-2137 69-2139 69-2153 69-2277 69-2279 69-2289 69-2291 $ 
BEGCR2 002620 #6 1-486 
BEGRE 002622 #61~487 
BE4VEC 002624 #61488 69-2124 «69-2126 = 69-2127 $ 
BITO = 000001 #59-17 $ 
BITOO = 000001 #59-17 59-17 
BITO1 = 000002 #59-17 59-17 $ 
BITO2 = 000004 #59-17 59-17 $ 
BITO3 = 000010 #59-17 59-17 $ 
BITO4 = 000020 #59-17 59-17 $ 
BITOS = 000040 #59-17 59-17 $ 
BITO6 = 000100 #59-17 59-17 $ 
BITO? = 000200 #59-17 59-17 $ 
BITO8 = 000400 #59-17 59-17 $ 
BITO9 = 001000 #59-17 59-1 69-2398 69-2399 $) 
BITi = 2 459-17 $! 
BIT10 = 002000 #59-17 69-2399 $s 
BIT11 = 004000 #59-17 69-2398 $ 
BIT12 = 010000 #59-17 
BIT13 = 020000 #59-17 69-2399 
BIT14 = 040000 #59-17 69-2398 
BIT15 = 100000 #59-17 
BIT2 = 000004 #59-17 
BIT$ = 000010 #59-17 
BIT4 = 000020 #59-17 
BIT5 = 000040 #59-17 
BIT6 = 000100 #59-17 
BIT7 = 000200 #59-17 
BITB = 000400 #59-17 
BIT9 = 001000 #59-17 
BPTVEC = 000014 #59-17 
BUFF1 030062 *65-1034 65-1037 65-1045 65-1046 + *65-1052 65-1054 65-1059 65-1062 65-1063 
*65-1070 65-1072 65-1078 += 65-1081 65-1082 += *65-1088 += 65-1091 65-1095 65-109 
65-1100 *65-1135 65-1137 65-1147 65-1150 65-1151 «65-1160 65-1161 65-1167 
65-1170 65-1171 65-1269 «65-1273 = 65-1276 §=— 65-1384 © *65-1386 65-1394 65-1416 
65-1418 65-1421 65-1433 65-1436 65-1440 65-1454 65-1459 65-1480 65-1482 
65-1484 65-1489 65-1494 65-1819 65-1521 65-1523 65-1530 65-1533 65-1537 
65-1542 65-1547 65-1569 65-1571 65-1573. 65-1579 65-1582 65-15 65-1591 
65-1596 65-1617 65-1619 65-1626 © *65-1628 = 65-1629 65-1631 65-1639 66-1748 
66-1841 69-2034 69-2036 ~=— 69-2039 69-2043 © *69-2043 69-2052 69-2056 §=— 69-2129 
*69-2161 69-2170 69-2173 «69-2221 69-2222 69-2235 = 69-2237 69-2239 69-2240 
69-2242 69-2243 469-2537 





C7KUBCO _—s CREATED BY MACRO ON 26-SEP-79 AT 10:06 PAGE 3 Cj 

SYMBOL CROSS REFERENCE CREF SEQ 0102 Mi 

SYMBOL VALUE REF ERENCES w 

C 003500 61-555. #61-559 cc 

CLRREG 016172 62-759. 62-786 62-848 62-905 62-1004 65-1021 65-1035 65-1051 65-1069 ER 
65-1133 65-1158 «= 65-1191 65-1246 = 65-1301 65-1354 «= 65-1383 = 65-1415 65-1478 Es 
65-1518 65-1568 65-1616 65-1661 66-1691 66-7743 += 66-1807 66-1838 = 66-1849 Gt 
66-200 69-2031 69-2074 469-2316 Gt 

CR = 000015 17 69-2402 69-2402 MS 

CRDY 016246 65-1139 65-1164 = 65-1197 65-1230 © 65-1252 65-1263 = 65-1272 65-1322 65+ 1328 
65-1335 65-1402 65-1553 65-1602 = 65-1623 = 65-1635 © 65-1648 = 66-1697 66-1723 
66-1751 -1843 66-1855 #69-2339 

CRLF = 000200 #59-17 69-2402 69-2402 

D 003514 61-560  #61-562 

= 17 #59-18 61-503 

DDISP = 177570 #59-17 60-29 61-492 

DH15 022205 61-102 61-317, 61-342 69-2439 

DH17 22361 61-112 — #69-2442 

DH18 022475 61-117 469-2444 

DH19 022571 61-122 — #69-2446 

DH2 021072 61-37. -#69-2415 

DH24 023075 61-147 61-152 61-157 61-162 61-187 61-192 #69=2453 

DH3 021173 61-42 #69-2419 

DH34 023637 61-197  #69-2466 

DH35 023733 61-202 61-212 61-217 469-2468 

DH36 024030 61-207  #69-2470 

DHS 021254 61-47 61-52 61-57 61-417. #69-2423 

DH43 024510 61-242 61-262 61-277. #69-2478 

DH46 024702 61-257 61-432 = #69-2482 

DH65 026207 61-352 61-362 61-367 69-2187 #692502 

DH7 021504 61-62 #69-2429 

DINT 016276 65-1247 65-1302 66-1711 66-1839 66-1850 66-1937 #69-2352 

DISPLA 001174 "60-29 *61-492 #6 1-492 69-2398 69-2399 

DISPRE 000174 #59-20 61-492 

DSWR = 177570 #59-17 60-29 61-492 

DT2 021120 61-38 61-113 61-203 61-213 61-218 61-243 61-263 61-278 469-2417 

DT24 023152 61-148 61-153 61-158 61-163 61-188 61-193  #69-2455 

DT3 021202 61-43 61-103 61-118 61-123 61-198 61-208 61-318 61-343 61-353 
61-363 61-368 ~=— #692421 

DT4 021314 61-48 61-53 61-58 61-258 61-418 61-433 #69=2425 

DT7 021562 61-63 #69-2431 

E 003532 61-563 #6 1-566 

002510 #61-450 «61-497 * 1-506 61-516 61-523 61-544 

EMTVEC = #59-17 61-492 61-492 

EM1 020750 61-31 #69~241 

EM10 21716 61-76 #69-24 34 

EM11 021757 61-81 #69-2435 

EM12 022023 61-86 469-2436 

EM14 022070 61-96 #69-2437 

EM15 022121 61-101 69-2438 

EM16 022227 61-106 469-2440 

EM17 022322 61-111 #69-2441 

EM18 22406 61-116 #6 9-2443 

EM19 022510 61-121 — #69-2445 

EM2 021032 61-36 #69~2414 
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SYMBOL CREF 


CROSS REFERENCE SEO 0104 

5 VALUE REFERENCES 

EM71 6430 61-381 #69-2507 

EM72 026456 61-386 #69-2508 

EM73 026506 61-391  #69-2509 

EM74 026553 61-396 #6 9- 

EM75 026575 61-401 #69-2511 

EM76 6615 61-406  #69-2512 

EM77 026642 61-411 — #69-2513 

EM78 6670 61-416  #69~2514 

E 021570 61-66 

026730 61-426 — #69-2515 

EMB1 026772 61-431  #69-2516 

EM82 027016 61-436 #69-2517 

EM83 06 61-441 469-2518 

E 027144 61-446 — #69=2519 

EMS 021655 61-71 869-2633 | 

ERROR = 104000 #59-17 61-525. 61-608 «= «61-630 «62-666 «= 62-707 62-735. 62-772 6 2-825 
62-865 62-868 62-872 62-876 62-952 62-964 62-969. 62-981 62-987 
62-99 64-1018 65-1048 65-1065 65-1084 65-1102 65-1117 65-1120 65-1123 
65-1126 65-1142 65-1153 65-1173 = 65-1200 = 65-1201 65-1205 = 65-1206 = 65-1271 
65-1212 65-1217 65-1218 «= 65-1222 65-1223 65-1233 65-1234 65-1277 65-1282 
65-1288 65-1340 65-1368 65-1396 65-1399 65-1430 65-1449 65-1456 65-1461 
65-1464 65-1467 65-1502 65-1544 65-1549 «65-1593 65-1598 65-1636 = 65-1641 
65-1644 65-1650 65-1672 66-1700 66-1701 66-1707 66-1708 66-1726 66-1727 
66-1759 66-1761 66-1763 66-1773 «66-1775. «66-1776 «= 66-1779 = «66-1781 66-1782 
66-1785 66-1787 66-1790 66-1792 66-1817 66-1818 66-1822 66-1823 66-1828 
66-1829 66-1835 66-1836 66-1858 66-1882 66-1883 66-1896 66-1897 66-1909 
66-1910 66-1918 66-1919 66-1968 66-1990 66-2013 «69-2047 69-2048 + 69-2065 
69-2066 69-2180 69-2258 

ERRVEC = #59-17 61-492. 61-492 61-492 «69-2398 = 69-2398 += 69-2398 =: 69-2398 

ERR1 006620 65-1038 #65-1117 

ERR2 006630 65-1056 #65-1120 

ERR3 65-1073 #65-1123 

ERRG 50 65-1089  #65-1126 

003570 #61-576 «61-578 

FINT1 005172 62-849 #6 2-872 

FINT3 005600 62-919 #6 2-962 

FIRST 003632 61-581 61-582 —#61-594 

GNS = wanes 59-20 59-20 69-2404 69-2404 69-2404 69-2404 69-2404 69+ 2404 69-2404 
69-2404 69-2404 69-2404 

HT = 000011 #59-17 69-2402 69-2402 

LADD 003266 61-518 #61-531 

INTVEC 002532 #61-459_-#61-538. #6 1-551 62-849 62-850. 62-919 62-941 62-973. 65-1192 
65-1228 65-1356 65-1423 «65-1630 66-1695 66-1745 66-1766 = 66-1809 66-2008 
69-2038 69-2327 69-2329 69-2352 69-2354 

IOTVEC = 000020 #59-17 61-492 61-492 

ITRAP 004770 62-816 #62-830 

LAST 014440 61-558 61-561 #692077 

LAST1 014462 69-2077 69-2078 #69-2102 

LF = 000012 #59-17 69-2402 69-2402 

LOOP1 150 #61-505 61-510 

tooP2 003156 461-507. 61- 


522 
MSG1 020414 61-515 469-2407 
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CZKUBCO PAGE 6 
CREF 


SYMBOL CROSS REFERENCE SEQ 0105 
SYMBOL VALUE REFEREN 
G10. 027323 69-2189 69-2270 #69-2523 
MSG11 027356 69-2106  #69-2524 
MSGI2 027442 61-496 — #69-2505 
MSG13. 027570 61-568  #69-2507 
MSGI14 027632 61-613 62-671 469-2528 
mSGIS 027703 69-2389  #69-2529 
MSGI6 027737 61-495  #69~2530 
mSG17 30026 69-2391 #692531 
MSG2 2042 69-2305 vf9-240 
MSG3 025331 65-1 #59~24689 
MSGh 025457 66-1678  #69~2491 
MSGS 2066 62-833 #69-2412 
MSG7 027230 69-2184 69-2261 69-2266 + #69-2520 
MSG8 027252 69-2263 69-2268 9 -#69-2521 
MSG9 027267 69-2265  #69-2522 
MTRAP 003234 61-501 1-520 
NO 002630 #61-490 61-541 *61-543 61-574 #6 1-579 
014430 62-673 62-709. «62-737 62-774 = 62-867 62-879 #69~2074 
1 014434 61-635  #69-2075 
PIRQ == 177772 #59-17 
PIRQVE = 000240 #59-17 
PRO = #59-17 
PR1 = 00004 #59-17 
PR2 =: 000100 #59-17 
PRS =- 000140 #59-17 
PRA =: 000200 #59-17 
PRS = 000240 459-17 
PR6 =: 000300 #59-17 
PR7 —- = 000340 #59-17 
PS = 177776 #59-17 59-17 
PSW = :177776 #59-17 61-595 61-648 += 62-698 = 62-726 «= 62-758 = 62-820 62-8476 2-855 
62-904 62-923 62-927 © 62-932 62-942 62-948 = 62-977, © 62-1003 63-100 
65-1033 65-1040 65-1134 65-1159 65-1190 65-1208 = 65-1248 += 65-1303 65-1353 
65-1358 65-1370 65-1372 65-1382 «65-1389 65-1414 65-1425 65-1479 65-1517 
65-1527 65-1529 65-1551 65-1567 65-1576 65-1578 + 65-1600 65-1615 65-1634 
65-1647 65-1 66-16 66-1703 66-1746 66-1750 66-1806 66-1825 66-1851 
66-1874 66-1939 66-1971 66-1976 66-2006 §= 66-2011 69-2033 69-2131 69-2141 
69-2158 69-2177 69-2179 69-2206 = 69-2209 69-2228 ~=— 69-2280 
PTRAP 004754 62-821 462-827 
PWRVEC = 000024 59-17 61-492 61-492 69-2405 69-2405 69-2405 69-2405 69-2405 69-2405 
RCATCH 016224 62-864 62-878 62-880 = 62-980. 65-1236 © 65-1290 65-1342 65-1373 65-1469 
65-1652 66-1729 66-1794 66-1845 66-1860 66-1992 66-2015 69-2068 69-2326 
RDYS 006570 65-1041 65-1058 65-1075 65-1094 + #65-1108 
RESVEC = 000010 #59-17 
RSTART 001100 459-22 
RTR 64-1017 #65-1021 
RVEC 016316 59-26 62-951 62-963 62-986 = 6 2-989-469-2360 
R6 =%000006 #59-17 59-24 *61-492 #6 1-492 61-492 
R? =%000007 #59-17 
SCOPE = 000004 #59-17 61-593 61-646. 62-696 = 62-724 62-756 = 62-807, 62-845. 62-902 
62-1001 65-1031 65-1131 65-1156 65-1188 = 65-1244 65-1299 65-1351 65-1380 
65-1412 65-1476 65-1515 65-1565 65-1613 65-1659 66-1688 = 66-1741 66-1804 


C7KUBCO 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


SPTR 
STACK 


START 
START1 
STKLMT 
STRAP 
SWR 


TBITVE 
TERRPC 


TKVEC 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 


002514 
001100 


0000 
016432 


000060 


REFERENCES 
66-1847 66-1871 
61-499 


59-20 23 
61-494 #61-497 


61-596 #61-629 
#60-29 61-492 

62-830 65-1662 
at + 7 2g 


#59~2 1-492 
#59-17 

#59-17 59-17 
#59-17 59-17 
#59-17 59-17 
#59-17 59-17 
#59-17 59-17 
#59-17 59-17 
#59-17 59-17 
459-17 59-17 
#59-17 59-17 
#59-17 59-17 
459-17 

#59-17 

#59-17 

#59-17 61-493 
#59-17 69-2181 
#59-17 

#59-17 

#59-17 

#59-17 

#59-17 

#59-17 

#59-17 

#59-17 

459-17 

459-17 

#59-17 


61-526 61-614 


4, 
69-2271 469-2387 


oo-13° 


69-2312 


*61-492 


66-1676 
69-2398 


62-811 


61-513 
69-2259 


66-1911 


PAGE 7 
CREF 


66-2004 


#61-492 


61-492 
66-1872 
69-2399 


62-830 
69-2387 


66-1920 


68-2029 


*61-492 
66-1931 
69-2399 


65-1662 


62-708 


66-1969 


69-2073 


69-2382 


61-493 
69-2104 
69-2399 


66-1676 


62-736 


66-1991 


69-2101 
62-725 
65-1157 


65-1566 
69-2112 


61-513 
69-2181 
69-2399 


69-2104 


62-773 


66-2014 


69-2312 


62-757 
65-1189 
65-1614 


69-2405 


69-2049 


62-808 
65-1245 
65-1660 


62-811 
69-2387 
69-2405 


CZKUBCO 
ae 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 
CROSS REFERENCE 
VALUE REFERENCES 
002512 #61-451 *61-544 *61-553 
= 000064 #59-17 
= 000034 #59-17 61-492 61-492 
= 000014 #59-17 
006656 65-1050 #65-1129 
014134 66-193 #66-1996 
00363 #61-593 
005224 #62-902 
005754 62-971 62-983 62-991 
050 #65~-1031 
56 65-106 65-1086 65-1096 
007022 65-1144 65-1148 #65-1156 
007152 65-1168  #65-1188 
007456 #65-1244 
007740 #65-1299 
060 61-627 #61-646 
10204 #65-1351 
010332 #65-1380 
010472 #65-1412 
010776 #65-1476 
011134 65-14 #65-1515 
011342 #65~-1565 
011550 #65-1613 
012002 #65-1659 
266 #62-696 
012116 66-1677 #66-1688 
012372 466-1741 
012706 #66-1804 
013136 #66-1847 
013224 #66-1871 
013500 66-1873 #66-1930 
4134 #66-2004 
014216 #68-2029 
364 #62-724 
014460 #69~2101 
00446 #62-756 
004656 62-788 #62~807 
005032 62-812 462-845 
= 104405 69-2312  #69-2404 
= 104401 61-495 61-496 61-515 
65-1 66-1678 69-2106 
69-2266 69-2268 69-2270 
69-2399 69-2400 69-2400 
69-2402 69-2403  #69-2404 
= 104402 61-516 §1-569 69-2185 
69-2400 69-2400 #69-2404 
= 104404 #69~2404 
= 104403 69-239 #69-2404 
003676 #61-601 61-617 
003754 61-605 #61-616 
003712 #61-606 61-619 61-624 
003760 61-603 #61-618 


PAGE 8 
CREF 


*61-554 


#62-1001 
65-1104 


61-517 


69-2188 


61-556 


65-1119 


61-568 

69-2187 
69-2312 
69-2400 


69-2262 


65-1122 


61-570 

69-2189 
69-2312 
69-2400 


69-2264 


65-1125 


61-613 


69-2261 
69-2389 
69-2400 


69-2267 


#65-1131 


62-671 

69-2263 
69-2391 
69-2400 


69-2269 


69-2390 


SEQ 0107 


CZKUBCO CREATED BY MACRO ON 26-SEP-79 AT 10:06 Cree 9 


SYMBOL CROSS REFERENCE SEQ 0108 
SYMBOL VALUE 


TOILOS 004042 61-615. #61-633 
TOILO6 «=: 003746 61-610 61-612 #61-614 
TO2LO1 004214 62-662 #6 2-674 
TO2LO2 00414 #62~663 62-681 
TO2LO3 004122 #61-654 62-687 
TO2L04 004204 62-668 62-670 #6 2=672 
TO3L01 346 62-703  #62-710 
TO3LO2 004356 62-711 #62=714 
TO3LO3 ©—-:004312 #62-701 62-713 
TO3L04 306 #62-700 62-715 
TO4LO1 004444 62-731 62-738 
TO4LO2 004454 62-739 #6 2=742 
TO4LO3 004410 #62-729 62-741 
TO4L04 004404 #62-728 62-743 
TOSLO? 004572 62-765 62-767 -#62=777 
TOSLOZ 004624 62-778 62-786 
TOSLO3 =: 004522 #62-764 62-783 62-785 
TOSLO4 004506 #62-761 62-792 62-79% 
TOSLOS 004652 62-790  -#62=793 
TOSLO6 ©0046 20 62-780 #62-784 
TOSLO7 ~=—- 004562 62-769 #62775 
TOSLO8 004540 #62-776 62-776 
06L01 005012 62-829 62-831 #6 2-834 
TO7LO3 ©—-:005116 #62-857 62-861 
TO7L04 005162 62-859 62-868 
TO7LO05 005220 62-863 #62-880 
TO7L06 «005210 62-870  #62-878 
TO7LO7 ~—-:005114 #62-856 62-874 
TO7LO8 005202 62-854 #62-876 
TO8L01 04 #62-915 62-918 
TOBLO2 005552 62-941 #6 2-955 
TOBLO3. 005510 #62-945 62-960 
TOBL04 2 62-967 #6 2-973 
TO8LOS 005650 62-973 62-974 

36 62-954 #62-990 
TO8BLO7 ~—- 005732 62-957 #6 2-989 
TOBLOB 005252 #62-908 62-910 

536, 62-944 462-951 
TO9LO1 ~=—-:014212 66-2008  #66-2015 
T10L01 206 65-1043 #65-1051 
TI0L02 006326 65-1060  #65-1069 
T10L03 006452 65-1079  #65-1088 
T10L04 006616 65-1110 #65-1116 
T10L05 006572 #65-1109 65-1113 

006412 65-1077 #65-1080 

T11L01 006744 65-1141 65-1145 
T11L02 006764 65-1146 #65-1149 
T12L01 007114 65-1166 #65-1169 
T13L01 010012 5-1307 65-1314 
T13L02 007774 #65-1309 65-1312 
T13L03 010016 65-1313 #65-1316 
T13L04 010154 65-1324 65-1330 #65-1338 


CZ7KUBCO 
SYMBOL CROSS REFERENCE 
VALUE 

T13L05 010176 
T14L01 007670 
T1402 007504 
T14L03 007712 
T14L04 007734 
T15L01 010250 
T15L02 010326 
T15L03 010234 
T16L01 010414 
T16L02 010452 
T16L03 010460 
T17L01 010516 
T17L02 010612 
T17L03 10572 
T17L04 010710 
T17L05 010616 
T17L06 010630 
T17L07 010754 
T17L08 010764 
T17L09 010772 
T17L10 010712 
T17L11 010732 
T18L01 011020 
T18L02 011052 
T18L03 011110 
T18L04 011072 
T19L01 011160 
T19L02 011270 
T19L03 011240 
T19L04 011252 
T1905 011330 
T19L07 011310 
T19L09 011266 
T20L01 911366 
T20L02 011474 
T20L03 011442 
T20L.04 011456 
T20L05 011536 
T20L06 011516 
20.08 011476 
T21L01 011742 
T21L02 011770 
T21L03 011724 
T21L04 011776 
T22L01 012076 
T23L01 007320 
T23L02 007254 
123L03 007274 
T23L04 007446 
T23L05 007344 
T23L06 007364 
T23L07 007426 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 


REFERENCES 
65-1337 #6 


13 1342 
65-1254  #65-1280 
#65-1250 65-1258 
65-1265 #65-1285 
65-1274 65-1279 
65-1356  #65-1360 
65-1363  #65-1373 
#65-1357 65-136 
#65-1390 65-1391 
65-1393  #65-1399 
65-1395 65-1398 
#65-14172 65-1419 
65-1423 #65-1433 
#65-14627 65-1429 
65-1435  #65-1452 
#65-1434 © 65-1437 
465-1438 65-1441 
65-1443  #65-1464 
65-1445  #65-1467 
65-1432 65-1448 
65-1439  #65-1453 
65-1455 #65-1459 
#65-14681 65-1483 
#65-1487 65-1488 
65-1492 #65-1498 
#651491 65-1495 
#65-1520 65-1522 
65-1536 #65-1541 
#65-1531 65-1534 
#65-1535 65-1538 
65-1539 65-1546 
65-1543  #65-1547 
65-1532 #65-1540 
#65-1570 65-1572 
65-1581  #65-1589 
#65-1580 65-1583 
#65-1584 65-1587 
65-1588 65-1595 
65-1592 #65-1596 
65-1585  #65-1590 
65-1625 65-1644 
65-1627 #65-1650 
65-1630 65-1639 
65-1638 65-1640 
65-1671  #65-1674 
65-1192 #65-1214 
65-1199  #65-1203 
65-1204  #65-1208 
65-1232 #65-1236 
65-1216 #65-1220 
65-1221 #65-1225 
65-1228 #65-1231 


65-1284 


#65-1401 


65-1451 


#65-1551 


#65-1600 


65-1643 


PAGE 10 
CREF 


#65-1290 


65-1458 


65-1649 


65-1463 


#65-1652 


65-1466 


#55-1469 


SEQ 0109 







CZKUBCO CREATED BY MACRO ON 26-SEP-79 AT 10:06 PAGE 11 
SYMBOL CROSS REFERENCE CREF 
YMBOL VALUE REFERENCES 
66-1695 #6 


SEQ 0110 





169 6-170 

66-1699  #66-1703 

66-1710 66-1719 += #66=1729 
65-1717 #66-172 

#66-1714 66-1725 

66-1705  #66-1711 

66-1745 66-1759 

66-1753 #66-176 

66-1755 66-1785 

66-1757  #66-1790 
#66-1746 66-1758 

66-1766 66-7769 

66-1770 #66177 

66-1765 66-1772 «= 66=1778 «= 66-1784 «= 66-1789 66-1794 
66-1809 466-183 
#66-1812 66-1814 

66-1816  #66-1820 

66-1821  #66-1825 

66-1831 66-1834  #66-1838 
66-1878  #66-1886 

66-1885 66-1899 66-1912 -66=1914 —-#66-1916 
66-1887  #66-1900 

#66-1890 66-1892 66-1895 
66-1900  #66-1913 
#66-1903 66-1905 66-1908 
66-1917 #661921 

66-1946 466-1949 

66-1956 66-1959 66-1962 #661967 
66-1966 #661971 

66-1970 66-1986  #66-1992 
66-1950  #66-1952 

#66-1974 66-1975 

66-1978  #66-1981 

66-1982  #66-1984 

66-1932  #66-1934 

#69-2035 69-2037 

69-2038  #69-2051 

69-2054  #69-2062 

#69-2034 69-2060 

#69-2053 69-2057 

#69-2043 69-2046 

69-2050 69-2061 469-2068 
69-2103 #69-2112 

69-2113 #69-2143 

69-2116 #69-2146 

69-2121 #69-2149 

69-2126  #69-2152 

69-2145 69-2148 «= 69-2151 #69-2154 
69-2135 69-2138 = #69-2140 
69-2217 69-2225 469-2245 
#69-2217 69-2220 

69-2226 #69-2230 
















CZKUBCO 
SYMBOL 
T30L11 


“4 
S 
Nm 


St St Ht tt st 
suseeeee 
VINO NAUISW 

oO 

— 

Ww 

3 


MVMVY 
OoONO 


001245 
017440 







001144 





REFERENCES 
#69~ 


~m 
N 


#62-985 


69-2399 
*69-2402 


#69-2312 
69-2108 
#69-2312 
69-2398 


*61-492 
469-2399 
69-2390 
69-2400 
#69-2400 
*69-2399 





CREATED BY MACRO ON 26-SEP-79 AT 10:06 
SYMBOL oT REFERENCE 


69-2260 
69-2244 


469-2258 
#69=2129 


69-2204 


69-2156 


69-2399 
69-2402 


61-492 


469-2312 
69-2399 


69-2304 
69-2312 
69-2398 
69-2398 


*69-2399 


69-2399 


PAGE 12 
CREF 


#69=2272 


69-2167 


69-2399 
*69-2402 


69-2402 


#69-2312 

69-2398 
*69-2398 
*69-2599 


69-2399 


469-2402 


61-492 
60-29 


60-29 


60-29 
69-2399 


*69-2398 
69-2398 
69-2399 


61-492 
60-29 


60-29 


60-29 
69-2399 


69-2398 
69-2398 
69-2399 


61-492 
#60-29 
460-29 


50-29 
69-2400 


69-2398 


69-2399 


61-492 
60-29 


60-29 


60-29 
69-2400 


*69-2399 


69-2400 


60-29 
60-29 


60-29 
69-2400 


69-2599 


SEQ 0111 





CZ7KUBCO 
SYMBOL CROSS REFERENCE 
VALUE 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 


020162 


aeeKkne 
001212 
001214 


REFERENCES 
#60-29 


*65-1459 


*61-492 
69-2402 
69-2402 


59-13 
*69-2398 
69-2405 


*69-2399 
69-2399 

*61-492 

*61-492 


69-2398 


69-2303 


#69-2405 
#69-2405 


#69-2405 
69-2399 


*61-606 
*62-939 
*65-1169 
*65-1499 


*69-2398 
69-2402 
69-2402 


59-13 
69-2398 
#69=2405 


69-2399 
69-2399 


69-2398 


*69-2312 


69-2405 


69-2399 


*61-629 


465-1547 


PAGE 13 
CREF 


69-2399 
69-2402 


*69=2398 


69-2399 
oO Sous 


#66-1930 
68-2029 


*69-2403 
469-2398 
*69-2312 


69-2402 


65-1596 


69-2399 


69-2398 


69-2400 
69-2402 
*69-2398 
*69-2078 


461-646 


#69-2101 
*69-26403 
69-2312 


69-2402 


*66-1706 


69=2399 


69-2398 


*69-2398 
69-2398 


69-2101 
#69-2403 
69-2312 


*65-1287 
*66-1760 


69=2399 


69-2398 
*69-2398 


461-646 


66-2004 
#69-2101 


69-2312 


*62-770 

*65-1061 
*65-1338 
*66-1762 


69-2398 
69-2398 


69-2101 


69-2398 


*65-1339 
"66-1774 


69-2398 
69-2398 


66-2004 


69-2398 


*65-1 366 
*66-1780 


SEQ 0112 


CZKUBCO 
Sv 


SREG1 


$STUP 


SSVLAD 
$SVPC 
$SWR 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 


SYMBOL CROSS REFERENCE 
MBOL VALUE 


001216 


001220 


001222 
016150 


ke kkee 
kkkhen 
020402 
016472 


= 000037 


177777 


016656 
001132 
167000 


REFERENCES 
86 


*69-2257 


65-1351 


*69-2063 
*62-665 
*65-1501 
*65-1047 
69-2269 


69-2405 
a 7 i 


465-1351 


*66-1953 
*69-2246 


*69-2186 


*62-705 
*66-1954 


*65-1064 
69-2455 


*69-2405 


0 
61-654 


61-593 


65-1244 
65-1380 


PAGE 14 
CREF 


*66-1957 


*65-1367 
69-2188 


*62-733 
*66-1964 


*65-1083 


*69-2405 


69-2399 


*65-1659 
69-2398 


65-1380 


*66-1960 
69-2417 
*62-734 
*65=1045 
*65-1460 
*69-2247 


*65-1046 
*66-1989 


*65-1101 


69-2405 


69-2405 


*66-1871 
69-2398 


*62-685 


461-593 


465-1244 
465-1380 


*66-1963 


69-2264 


*65-1063 | 


*69-2064 
*65-1152 


59-19 
61-492 
69-2312 


69-2399 


*66-1930 


61-627 


66-1967 


69-2417 


*65-1082 
*69=2248 


*65-1172 


69-2312 
#59-15 


69-2399 


*68-2029 


61-646 


65-1299 
65-1412 


*66-1987 


69-2425 


*65-1100 
69-2267 


*69=2251 


59-19 
61-492 
69-2398 


#59-19 


*69-2107 


61-646 
62-756 


#65-1412 


*69-2062 


*66-1967 
69-2431 


*65-1151 
69-2425 


*69=2255 


69-2399 
59--19 


*69-2312 


65-1476 


SEQ 0113 


C7KUBCO CREATED By 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
$TPB 0012 
STPFLG 001211 
$TPS 001202 
STRAP 020166 
$TRAP2 020210 
STRP = 

$TRPAD 020222 
STSTNM 001134 
STYPBN = *eeeee 
STYPDS 017224 
$TYPE 017450 
$STYPEC 017620 
STYPEX 017736 
$TYPOC 017764 
$TYPON 0000 
$TYPOS 017740 
$XTSTR 016502 
$$GET4 = 000 
SOF ILL 020163 
$40CAl] = weweee 


MACRO ON 25-SEP-79 AT 10:06 


wy ha 


3 
69-2398 


69-2399 
69-2404 


69-2404 


69-2312 
*69-2403 
69-2399 


65-1496 


69-2402 


69-2404 
69-2404 
#69-2404 


*69-2079 
69-2399 


69-2404 


69-2404 
69-2404 


69-2403 


PAGE 15 
CREF 


69-9409 


69-2404 
69-2404 
69-2404 


*69=2312 
69-2399 


469-2402 


469-2403 


oa 
o 
‘ 
-a 
co 
N 


69-2404 
69-2404 
69-2404 


69-2392 


69-2402 


469-2404 
69-2404 
69-2404 


69-2398 


65-1565 


69-2101 


69-2404 
469-2404 
69-2404 


*69=2398 


65-1565 

centers 

66-1847 
#66-1930 
469-2101 


69-2404 
69-2404 
469-2404 


69-2398 


#65-1565 
66-1688 
66-1847 


69-2404 
69-2404 


69-2398 


SEQ 0114 


CZ7KUBCO 


MACRO CROSS REFERENCE 
NAME 


REFERENCES 
#18-1530 # 


8-15 59-17 
#18-1542 #59-17 
#20-1658 #59-17 
#13-1282 #59-17 
#22-1729 = #59=17 
#61-587 #61-593 
#62- #62-807 
#65-1177 #65-1188 
#65-1404 #65-1412 
#65-1654  #65-1659 
#66-1925  #66-1930 
443-4409 #59-17 
#19-1589 #59-17 
#62~1001 #65-1031 
#65-1476 #65-1515 
#66-1930 #66-2 
#26-2107 #59-17 
#26-2099 #59-17 
#56-5368 59-17 
#12-1250 #59-17 
#69~-2404 69-2404 
#14-1306 #59-17 
#21-1692 #59-17 

5-1086 #65-10 
#65-1279 #65-1284 
#65-1546 #65-1588 
#17-1482 #59-17 
#69-2313  #69-2315 

9-2 #69-2386 
#59-17 
#16-1451 #59-17 

-696 62-696 
62-902 62-902 
65-1188 65-1188 
65-1412 65-1412 
65-1659 65-1659 
66-1871 66-1871 
69-2312 69-2398 

9-2406 
#15-1420 #59-17 
469-2404 
#25-2043 #59-17 
#25-2013 #59-17 
#23-1783 #59-17 
#25-1980 #59-17 
#25-1933 #59-17 
#25-1896 #59-17 
#69-2390  #69-2400 
#24-1850 #59-17 
#59-29 60-29 
#59-29 #60-29 
#20-1671 #59-17 


CREATED BY MACRO ON 26-SEP-79 AT 10:06 


#66-1998 
#61-593 


69-2401 


69-2404 


69-2399 
#61-492 


#69-2312 


#61-516 
469-2400 


60-29 
#60-29 


#61-646 


#66-2004 
#61-646 


69-2400 
#61-492 


#61-569 


60-29 
#60-29 


r- 


PAGE 16 
CREF 


462-689 


#66-2018 
#62-696 
#65-1188 
#65-1659 
69-2405 
69-2405 


69-2404 


69-2401 


#69-2185 


60-29 
460-29 


#62-696 


#68-2029 
#62-724 


65-1244 
#66-1688 


69-2404 
#62-957 


66-2004 
69-2402 


469-2188 


#62-717 


66 
469-2083 
#62-756 


465-1299 
#66-1741 


#62-971 
#65-1144 
#65-1463 


#62-810 
#659-2349 


69-2403 


#69-2262 


62-724 


#69=2101 
#62-807 


465-1351 
466-1804 


462-983 
465-1148 
#65-1466 


#62-815 
469-2351 


69-2404 


469-2264 


#62-745 


462-845 
#65-1380 
466-1847 


#65-1496 


#69-2070 
469-2357 


69-2405 


469-2267 


#62-756 


466-1871 


#62-902 
#65-1412 
#66-1871 


#65-1067 
#65-1274 
#65-1539 


#69-2072 
#69-2359 


69-2605 


#69-2269 





SEQ 0115 


CZKUBCO CREATED BY MACRO ON 26-SEP-79 AT 10:06 PAGE 17 
MACRO CROSS REFERENCE CREF SEQ 0116 
MACRO NAME REFERENCES 
SSNEWT #19-1625 = #59-17 #61-593 461-646 462-696 62-724 62-756 #62-807 462-845 #62-902 
#62-1 #65-1031 9465-1131 = 465-1156 §=—- 65-1188 = 65-1244 = 65-1299 = 65-1351 = #65-1380 §=— #65- 1412 
#65-1476 39865-1515 465-1565 465-161 465-1659 #66-1688 66-1741 66-1804 #66-1847 466-1871 
#66-19 a #68-2029 #69-2101 
SSSET #69=2604 869-2404 869-2404 469-2404 469-2404 469-2404 
SS$SKIP #21-1705 = #59-17 #61-627 #62-788 #62-971 #62-983 #62-991 #65-1067 #65-1086 #65-1096 
#65-1106 #65-1119 9465-1122 «= #65-1125 3965-11446 = #65-1148 = #65-1168 = 65-1496 966-1677 = #66- 1873 
-EQUAT #4~-180 59-7 59-17 
-EQUIV #59~4 #59-17 #59-17 #59-17 459-17 #59-17 #59-17 #59-17 459-17 459-17 
#59-17 #59-17 459-17 #59-17 #59=17 #59=-17 #59-17 #59-17 #59-17 #59-17 
#5917 #59-17 #59-17 #59-17 ' 
HEADE #2-54 #59-7 9-13 
-KT11 #5-323 
. SETUP #10-1184 #59-8 #59-19 
- SWRH1 #3-96 459-7 59-14 
- SWRLO 459-14 59-15 59-16 
-SACT1 #52-4977 = #59-8 #59-28 
- SAPTB #53-5021 
- SAPTH 454-5277 
- SAPTY #57-5452 
-SASTA #55-5323 
- SCATC #7-909 #59-8 59-20 
-SCMTA 1020 459-8 59-29 
- SDB2D #46-4607 
- $0B20 448-4730 
-SDIV #45-4510 
- SEOP #27-2166 #59-9 #69-2312 
SERRO 429-2647 #59-9 #69~2399 
- SERRT #30-2842 #59-9 #69-2400 
- SMULT 444-4467 
- SPOWE #40-4159 #59-8 #69-2405 
SRAND 41-4234 
- SRDDE #37-3830 
- SRDOC #36-3739 
EAD #35-3344 
- $R2AZ #51-4874 
- SSAVE #38-3 
- $SB2D 447-4691 
-$SB20 449-4792 
- $SCOP #28-2401 #59-7 469-2398 
-$SIZE #42-4287 
- SSUPR #50-4830 
- STRAP 439-4007 #59-8 #69~2404 
-STYPB 434-3237 
-STYPD #33-3160 #59-9 #69-2401 
STYPE #31-2929 #59-7 69-2402 
$TYPO #32-3 459-7 469-2403 
-$400A 48-948 
1170 #6-502 


